Array
(
)

Atribuir Propriedade OnEnter e OnExit

Emerson Azevedo
   - 17 dez 2005

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.


Marcio.theis
   - 19 dez 2005

Fiz um pequeno exemplo utilizando TEdit, fica + ou - assim:

Declaração:


#Código

procedure Entrar(Sender: TObject);
procedure Sair(Sender: TObject);



Código Fonte:


#Código
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;