terça-feira, 24 de novembro de 2009

Como mudar o texto de um edit no evento onchange

{Se o texto de um TEdit for mudado no seu evento OnChange, este even-to será chamado recursivamente até acabar com o espaço de pilha. Pa-ra fazer isso, deve-se setar o evento OnChange para NIL antes de mu-dar o texto, voltando ao original depois, desta maneira:}

procedure Edit1Change(Sender : TObject);
begin
Edit1.OnChange := NIL;
if Edit1.Text = 'Texto' then
Edit1.Text := 'Novo Texto';
Edit1.OnChange := Edit1Change;
end;
Isto também vale para evento OnValidate.

Nenhum comentário:

Postar um comentário