Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Celamar

Abortar procedure

Recommended Posts

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

×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.