Atribuir Propriedade OnEnter e OnExit

Question

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 at...

Marcio.theis · Answer

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

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;