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 = class(TForm)
Bcalcula: TButton;
procedure BcalculaClick(Sender: TObject);
private
public
end;
var
Form1: TForm1;
coordenadas: tpoint;
implementation
{$R *.lfm}
procedure TForm1.BcalculaClick(Sender: TObject);
begin
form2.show;
coordenadas:=coordenadasraton;
end;
end.
***********************************************************++
Ahora va el Form2.
unit Unit2;
{$mode objfpc}{$H+}
interface
uses
Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs;
type
TForm2 = class(TForm)
procedure FormClick(Sender: TObject);
private
public
end;
var
Form2: TForm2;
coordenadasraton:tpoint;
implementation
{$R *.lfm}
procedure TForm2.FormClick(Sender: TObject);
begin
coordenadasraton:=mouse.cursorpos;
end;
end.
**********************************************************************************