Atribuir Propriedade OnEnter e OnExit

17/12/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.


Emerson Azevedo

Respostas

19/12/2005

Marcio.theis

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&93;.ClassType = TEdit then
        begin
        (Self.Components&91;x&93; as TEdit).OnEnter:=Entrar;
        (Self.Components&91;x&93; as TEdit).OnExit:=Sair;
        end;
    end;
end;



Responder Citar