He intentado lo que sugieres y me da error "wrong number of parameters specified for call to "Form2Click"" y "Found declaration: Form2Click (TObject).
Código Delphi
[-]
unit Unit1;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,unit2;
type
TForm1 = class(TForm)
public
procedure Form2Click(Sender: TObject);
end;
var
Form1: TForm1;
coordenadas: tpoint;
implementation
{$R *.lfm}
procedure tForm1.Form2click(sender: Tobject);
begin
end;
end.
unit Unit2;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm2 = class(TForm)
public
procedure formcreate(sender: Tobject);
end;
var
Form2: TForm2;
implementation
Uses unit1;
{$R *.lfm}
procedure Tform2.formcreate(sender : Tobject);
begin
onclick := Form1.Form2click; end;
end.
Un saludo y gracias.