Acceso a coordenadas en segundo formulario.

[roman]

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

[Karlo Magno]

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.

[Caminante]

Hola puedes probar haciendo

Código Delphi [-]
procedure Tform2.formcreate(sender : Tobject);  
 begin      
onclick := @Form1.Form2click;  //aquí da el error;  
 end;

Espero sea util

Saludos

[ecfisa]

Hola.

Otra opción para dectectar un click en Form2 desde Form1, puede ser:

Form1,

Código Delphi [-]
unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    btnShowForm2: TButton;
    procedure btnShowForm2Click(Sender: TObject);
  private
    procedure HuboClickEnForm2(mp: TPoint);
  public
  end;

var
  Form1: TForm1;

implementation  {$R *.dfm}

uses Unit2; // Form2

// Hizo click en Form2
procedure TForm1.HuboClickEnForm2(mp: TPoint);
begin
  Label1.Caption := Format('X:%3.d, Y:%3.d', [mp.X, mp.Y]);
end;

// Mostrar Form2 - asignar evento
procedure TForm1.btnShowForm2Click(Sender: TObject);
begin
  Form2.Show; // se supone ya creado
  Form2.OnClickInForm := HuboClickEnForm2;
end;

end.

Form2,

Código Delphi [-]
unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type
  TClickInForm = procedure(mp: TPoint) of object;
  TForm2 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    FClickInForm: TClickInForm;
  public
    property OnClickInForm: TClickInForm read FClickInForm write FClickInForm;
  end;

var
  Form2: TForm2;

implementation   {$R *.dfm}

procedure TForm2.FormClick(Sender: TObject);
begin
   if Assigned(FClickInForm) then
    FClickInForm(ScreenToClient(Mouse.CursorPos));
end;

end.

Salida:


Saludos

[roman]

Empezado por Caminante

Código Delphi [-]
procedure Tform2.formcreate(sender : Tobject);  
 begin      
onclick := @Form1.Form2click;  //aquí da el error;  
 end;

A mi esto me da el error:

[Error] Unit2.pas(29): Variable required

LineComment Saludos

[Caminante]

Empezado por roman

A mi esto me da el error:



LineComment Saludos

Que raro, a mi siempre me funciona asi. Aunque nunca he asignado un procedimiento de otra unidad de esa manera solo de la misma. Mejor lo compruebo.

Empezado por roman

Sin embargo, optaría más por la variante de ecfisa ya que así Form2 es independiente de Form1.

Opino igual.

Saludos

[ecfisa]

Hola.

Los dos están en lo correcto, según se trate, la sintáxis de asignación difiere.

En Delphi es,

Código Delphi [-]
OnClick := Form1.Form2Click;

mientras que en Lazarus hay que indicar que se trata de una dirección:

Código Delphi [-]
OnClick := @Form1.Form2Click;

Saludos

[Caminante]

[roman]

Empezado por ecfisa

mientras que en Lazarus hay que indicar que se trata de una dirección:

Código Delphi [-]
OnClick := @Form1.Form2Click;

¡Ah! Pero, qué raro. Esto haría muy incompatibles los códigos. ¿No tendrá lázarus alguna opción de compilación para esto?

De todas formas, gracias por la aclaración.

LineComment Saludos

[roman]

Empezado por Karlo Magno

He intentado lo que sugieres y me da error "wrong number of parameters specified for call to "Form2Click"" y "Found declaration: Form2Click (TObject).

No sé porqué te falle, a no ser que Lázarus haga algo raro o que hayas hecho la asignación así:

Código Delphi [-]
OnClick := Form1.Form2Click();

Aquí el ejemplo según mi versión:



Sin embargo, optaría más por la variante de ecfisa ya que así Form2 es independiente de Form1.

LineComment Saludos