Eventos en otras UNIT

[ecfisa]

¿Como puedo capturar un evento (OnClic por ejemplo) hecho en otra unidad?

Hola Jose Roman.

Un ejemplo.

Form1:

Código Delphi [-]
...
type
  TForm1 = class(TForm)
    btnShowForm2: TButton;
    procedure btnShowForm2Click(Sender: TObject);
  private
    procedure ClickEnForm2Button1(Sender: TObject);
  public
  end;
...
implementation

uses Unit2; 

procedure TForm1.ClickEnForm2Button1(Sender: TObject);
begin
  Caption := 'Han echo click sobre Button1 en Form2';
end;

// Asignar evento y mostrar Form2
procedure TForm1.btnShowForm2Click(Sender: TObject);
begin
  Caption := '';
  if not Assigned(Form2) then
  begin
    Form2 := TForm2.Create(Self);
    Form2.Button1.OnClick := ClickEnForm2Button1;
  end;
  Form2.Show; // (o ShowModal)
end;
...

El ejemplo supone que Form2 no está en Auto create form y que, lógicamente en Form2 existe un TButton llamado "Button1".

Saludos.