Só para acrescentar...
procedure TForm1.Edit1Exit(Sender: TObject);
begin
VOLTA := TEdit(Sender);
end;
Assim serve para qualquer edit, basta direcionar para o mesmo exit.
Eduardo
Eduardo Bianchi Ribeiro escreveu:
> Roberto, porque vc acha If e Case Deselegantes ? eu não acho
> deselegante,
Roberto, porque vc acha If e Case Deselegantes ? eu não acho
deselegante, são estruturas basicas de qualquer linguagem de
programação, mas respondendo a sua pergunta, vc poderia usar algo +/-
assim ...
var
Form1: TForm1;
VOLTA : TEdit;
implementation
{$R *.dfm}
procedure TForm1.Button1Cl
2 matches
Mail list logo