Objetos dentro de um Panel ???
14/12/2003
0
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
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
Curtir tópico
+ 0
Responder
Posts
14/12/2003
Fórum Vini
Caro michel,
use essa função no evento onEnter de todos os edits:
E essa no onExit:
Espero ter ajudado.
Vinicius.
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
Clique aqui para fazer login e interagir na Comunidade :)