Luciano Calenzani Simões wrote: > Coloque o seguinte código no onExit de um dos TEdit: > > if (Sender is TEdit) and > ((Sender as TEdit).Text = '') then > (Sender as TEdit).Text := '0';
Não tem nada a ver com a dúvida original, mas vai uma dica: neste caso você pode fazer um cast forçado, já que você tem certeza que o sender é da classe tedit. if (Sender is TEdit) and (TEdit(Sender).Text = '') then TEdit(Sender).Text := '0'; Isto vai economizar alguns ciclos de processamento. Joao Morais