Ver Mensaje Individual
  #1  
Antiguo 12-09-2017
Karlo Magno Karlo Magno is offline
Registrado
NULL
 
Registrado: ago 2017
Posts: 5
Reputación: 0
Karlo Magno Va por buen camino
Acceso a coordenadas en segundo formulario.

Hola a todos. Estoy haciendo un programa que me permita "navegar" por el conjunto de Mandelbrot
He avanzado bastante pero ahora me he quedado atascado en el paso de intentar averiguar en que punto del formulario de dibujo (Form2) he pinchado con el ratón. Lo he de averiguar desde el formulario de control (Form1), en concreto no consigo acceder desde Form1 al "onclick" del Form2, por venir éste de Tobject.

Os dejo abajo un resumen del problema, seguro que a alguien se le ocurre algo.

Código Delphi [-]
 
 unit Unit1;

{$mode objfpc}{$H+}

interface

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

type

  { TForm1 }

  TForm1 = class(TForm)
    Bcalcula: TButton;
    procedure BcalculaClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form1: TForm1;
  coordenadas: tpoint;

implementation

{$R *.lfm}

{ TForm1 }

procedure TForm1.BcalculaClick(Sender: TObject);
begin
  form2.show;

//  form2.formclick;
  coordenadas:=coordenadasraton;
end;

end.
 ***********************************************************++          

Ahora va el Form2.
                        
 unit Unit2;

{$mode objfpc}{$H+}

interface

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

type

  { TForm2 }

  TForm2 = class(TForm)
    procedure FormClick(Sender: TObject);
  private
    { private declarations }
  public
    { public declarations }
  end;

var
  Form2: TForm2;
  coordenadasraton:tpoint;

implementation

{$R *.lfm}

{ TForm2 }

procedure TForm2.FormClick(Sender: TObject);
begin
   coordenadasraton:=mouse.cursorpos;
end;

end.
**********************************************************************************

Última edición por roman fecha: 12-09-2017 a las 19:18:57. Razón: Agregar etiquetas [delphi] código [/delphi]
Responder Con Cita