Ver Mensaje Individual
  #2  
Antiguo 12-09-2017
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
Hola,

Recuerda usar las etiquetas adecuadas para publicar código, tal como he hecho en tu mensaje.

En cuanto a la duda, considera que puedes asignar al evento OnClick de un objeto un método de otro objeto:

Código Delphi [-]
type
  TForm1 = class(TForm)
  public
    procedure Form2Click(Sender: TObject);
  end;

implementation

procedure TForm1.Form2Click(Sender: TObject);
begin
  // Aquí entrará cuando se haga clic en el Form2
end;

La asignación podrías hacerla en el constructor del segundo formulario:

Código Delphi [-]
type
  TForm1 = class(TForm)
  public
    procedure FormCreate(Sender: TObject);
  end;

implementation

uses Unit1;

procedure TForm2.FormCreate(Sender: TObject);
begin
  OnClick := Form1.Form2Click;
end;

No es, quizá, la manera más limpia de hacerlo, pero puede servir

LineComment Saludos
Responder Con Cita