Celamar 0 Denunciar post Postado Outubro 14, 2004 Eu tenho o seguinte código: procedure TForm1.sgFeriadosSetEditText(Sender: TObject; ACol, ARow: Integer; const Value: String);var Key : char; DadosFeriado : TDadosFeriado;begin case Acol of 0: begin if DadosFeriadoAux.bEditarData = false then begin fnMensagemCustomizada(0, 'A data do feriado não pode ser alterada!', 'ATENÇÃO', ICONE_INFORMACAO, BOTAO_OK, BOTAO_DEFAULT_1); sgFeriados.Cells[0, iLinSelecionada] := sDataDoFeriado; Key := #0; end; end; O que acontece é o seguinte: pelo fato do evento ser SetEditText do StringGrid ele chama está procedure mais de uma vez porque eu tenho que atribuir o valor que estava na celula nates do usuário ter tentado alterá-lo. Tem como eu abortar esse processo para executar apenas uma vez? Eu já fiz uma variável de controle pra isso, mas daí ele não atribui o valor que estava na celula? Alguem tem alguma idéia? Abrigada. Compartilhar este post Link para o post Compartilhar em outros sites
Pezzin 0 Denunciar post Postado Outubro 15, 2004 Tente criar uma variável global se você for usar somente uma vez a procedure...Nunca conhece muito este evento. Compartilhar este post Link para o post Compartilhar em outros sites