Atribuir Propriedade OnEnter e OnExit

17/12/2005

1

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.


Responder

Posts

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



Responder
×
+1 DevUP
Acesso diário, +1 DevUP
Parabéns, você está investindo na sua carreira