Desviando enventos do componente

Question

Bom dia pessoal,Tenho um grande problem�o.Na minha aplica��o eu estou criando componentes em tempo de execu��o, por�m preciso adicionar o evento onclick em todos os componentes. Como eu fa�o para em t...

Cebikyn · Answer

Componente.OnClick := Procedure, s� funciona se a procedure tiver os mesmos par�metros do evento desejado e tb se a mesma estiver declarada no form (se��o Public, Private, Protected, etc...).

Qualquer outra d�vida sobre o assunto (ou problemas com esta resposta), deixe uma mensagem aqui.

Maicongabriel · Answer

Em Type, crie um objeto para a manipula��o de Eventos

type
  TObj = Class(Tcomponent)
  public
    procedure OnClick(Sender: TObject);
  end;

Declare as vari�veis globais

var
  obj      : TObj;
  btnTeste : TButton;

Crie a procedure OnClick do objeto

procedure TObj.OnClick(Sender: TObject);
begin
    if Sender = btnTeste then
      ShowMessage(�O Bot�o Teste foi clicado!�);
end;

Crie um bot�o din�mico

  btnTeste := TButton.Create(Self);
  with btnTeste do
  begin
    Width   := 60;
    Height  := 25;
    Caption := �Teste�;
    Left    := 10;
    Top     := 10;
    Visible := True;
    Parent  := Self;
    OnClick := Obj.OnClick;
  end;

� isso! abra�os...