Recuperar dados do campo

[dnsantana 0]

Pessoal é o seguinte:Tenho três campos do tipo 'text' no formulário, preenchidos com valores x, y, z. Qdo algum campo que tiver com o foco, deverá ter o seu value deverá ser mudado p/ vazio. Até aí sem problemas. Mas se eu passar o foco p/ campo ao lado, ele deverá ter o valor antigo restaurado.Será que alguém pode me dar um help nessa lógica?ABS - DN

[marcio.theis 3]

Voce pode ficar usando as propriedades OnEnter e OnExit dos campos, ficando algo do tipo:

 

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)	Edit1: TEdit;	Edit2: TEdit;	Edit3: TEdit;	procedure Edit1Enter(Sender: TObject);	procedure Edit1Exit(Sender: TObject);	procedure Edit2Enter(Sender: TObject);	procedure Edit2Exit(Sender: TObject);	procedure Edit3Enter(Sender: TObject);	procedure Edit3Exit(Sender: TObject);  private	{ Private declarations }	valorCampo: string;  public	{ Public declarations }  end;var  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.Edit1Enter(Sender: TObject);beginvalorCampo:=Edit1.Text;Edit1.Text:='';end;procedure TForm1.Edit1Exit(Sender: TObject);beginif Edit1.Text = '' then	Edit1.Text:=valorCampo;end;procedure TForm1.Edit2Enter(Sender: TObject);beginvalorCampo:=Edit2.Text;Edit2.Text:='';end;procedure TForm1.Edit2Exit(Sender: TObject);beginif Edit2.Text = '' then	Edit2.Text:=valorCampo;end;procedure TForm1.Edit3Enter(Sender: TObject);beginvalorCampo:=Edit3.Text;Edit3.Text:='';end;procedure TForm1.Edit3Exit(Sender: TObject);beginif Edit3.Text = '' then	Edit3.Text:=valorCampo;end;end.

Sendo declarada uma variável somente para ficar com o texto quando entrar, e quando sair ele retribui o valor caso não mexeu.