Objetos dentro de um Panel ???

Delphi

14/12/2003

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


Michel

Michel

Curtidas 0

Respostas

Fórum Vini

Fórum Vini

14/12/2003

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.


GOSTEI 0
Michel

Michel

14/12/2003

OK .Vini Obrigado


GOSTEI 0
POSTAR