Ver Mensaje Individual
  #2  
Antiguo 14-08-2013
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 38
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Cita:
¿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.
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 14-08-2013 a las 02:00:56.
Responder Con Cita