Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos


 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 12-09-2017
Karlo Magno Karlo Magno is offline
Registrado
 
Registrado: ago 2017
Posts: 5
Poder: 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
 


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Acceder a un segundo formulario desde una Unit JuanOrtega Varios 2 08-01-2016 23:39:41
Mejor evento para mostrar un segundo formulario franfl C++ Builder 5 16-04-2008 21:33:44
Corelab ...Formulario de Acceso al sistema ... Kenobi Varios 2 21-04-2007 00:47:57
Errores con mi formulario de acceso.... Kenobi Varios 4 17-04-2007 18:11:02
pasar coordenadas gps a coordenadas builder iaav1 C++ Builder 3 03-07-2006 20:59:02


La franja horaria es GMT +2. Ahora son las 19:49:10.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi