Objetos dentro de um Panel ???

14/12/2003

1

Pessoal é o seguinte.. quero q todos EDTIS que tenho dentro de um panel que quando aos mesmos forem recebendo o foco ele muda de cor e quando sair o foco ele ficaria com fundo branco novamente..

Gostaria de saber se algum jeito de fazer isso sem ter que ir em todos os edits e ficar programando nos seus eventos /


Grato Pela Atenção


Responder

Posts

14/12/2003

Fórum Vini

Caro michel,
use essa função no evento onEnter de todos os edits:
procedure TForm1.Edit1Enter(Sender: TObject);
begin
  (Sender as TEdit).Color:= clBlue;
end;

E essa no onExit:
procedure TForm1.Edit1Exit(Sender: TObject);
begin
  (Sender as TEdit).Color:= clWindow;
end;


Espero ter ajudado.
Vinicius.


Responder

14/12/2003

Michel

OK .Vini Obrigado


Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira