Debes colocar el codigo que pusiste en el evento onEnter del Edit.
Código Delphi [-]
procedure TForm1.Edit1Enter(Sender: TObject);
begin
edit1.Color:=clMenuHighlight;
end;
procedure TForm1.Edit1Exit(Sender: TObject);
begin
edit1.Color:=clWindow;
end;
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Última edición por Caro fecha: 28-06-2006 a las 21:42:19.
|