Ver Mensaje Individual
  #3  
Antiguo 13-09-2017
Karlo Magno Karlo Magno is offline
Registrado
NULL
 
Registrado: ago 2017
Posts: 5
Reputación: 0
Karlo Magno Va por buen camino
Algo falla

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 }

  TForm1 = class(TForm)
    public
     procedure Form2Click(Sender: TObject);
  end;

var
  Form1: TForm1;
  coordenadas: tpoint;

implementation

{$R *.lfm}

{ TForm1 }

  procedure tForm1.Form2click(sender: Tobject);
  begin

  end;

end.
  


unit Unit2;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;

type

  { TForm2 }

  TForm2 = class(TForm)

  public
   procedure formcreate(sender: Tobject);
  end;

var
  Form2: TForm2;


implementation

Uses unit1;
{$R *.lfm}

{ TForm2 }
procedure Tform2.formcreate(sender : Tobject);
  begin
     onclick := Form1.Form2click;  //aquí da el error;
  end;

end.


Un saludo y gracias.
Responder Con Cita