Atribuir Propriedade OnEnter e OnExit
Olá Amigos.
Preciso atribuir uma procedure aos eventos OnEnter e OnExit de todos os componentes da Classe TControl ( TCustonEdit , TCustonComboBox , etc ) na abertura do form.
Como poderia fazer esta atribuição.
Agradeço antecipadamente.
Preciso atribuir uma procedure aos eventos OnEnter e OnExit de todos os componentes da Classe TControl ( TCustonEdit , TCustonComboBox , etc ) na abertura do form.
Como poderia fazer esta atribuição.
Agradeço antecipadamente.
Emerson Azevedo
Curtidas 0
Respostas
Marcio.theis
17/12/2005
Fiz um pequeno exemplo utilizando TEdit, fica + ou - assim:
Declaração:
Código Fonte:
Declaração:
procedure Entrar(Sender: TObject); procedure Sair(Sender: TObject);
Código Fonte:
procedure TForm1.Entrar(Sender: TObject); begin ShowMessage(´Entrou no Edit´); end; procedure TForm1.Sair(Sender: TObject); begin ShowMessage(´Saiu do Edit´); end; procedure TForm1.FormCreate(Sender: TObject); var x: integer; begin for x:=0 to Self.ComponentCount - 1 do begin if Self.Components[x].ClassType = TEdit then begin (Self.Components[x] as TEdit).OnEnter:=Entrar; (Self.Components[x] as TEdit).OnExit:=Sair; end; end; end;
GOSTEI 0