Ver Mensaje Individual
  #1  
Antiguo 05-02-2008
Avatar de NeoAnderson
NeoAnderson NeoAnderson is offline
Miembro
 
Registrado: feb 2008
Posts: 17
Reputación: 0
NeoAnderson Va por buen camino
Exclamation Problema con TPageControl Dinamico

Hola a todos, soy nuevo en Club Delphi y me uni pk este es probablemente el sitio con mayor informacion y ayuda disponible, pero bueno, ire al grano.

Uso Delphi 7 y estoy haciendo un programa de edicion de imagenes en donde el objetivo es que se puedan abrir cualquier numero de imagenes al mismo tiempo y su manipulacion sea independiente una de otra.

Tengo un Form "TFMain" para la interfaz principal, y en este Form tengo Un PageControl1 (donde se creará un tabSheet por cada imagen que abra).
Aparte tengo un Form "TFImagen" que contiene un TImage (para alojar a la imagen) y las funciones que se aplicaran a esa imagen.

En "TFMain" tengo un boton abrir que lo que hace es crear un nuevo tabSheet en PageControl1 y en este tabsheet se aloja un nuevo Form del tipo TFImagen. Esto lo hago con el siguiente codigo que no recuerdo donde encontre, pero funciona bien.

Código Delphi [-]
   
   //Crear un nuevo tab sheet
   tabSheet := TTabSheet.Create(PageControl1) ;
   tabSheet.PageControl := PageControl1;

   //crear un nuevo form  
   aForm := TFImagen.Create(tabSheet) ;
   aForm.Parent := tabSheet;
   aForm.Align := alClient;
   aForm.BorderStyle := bsNone;
   aForm.Visible := true;
   tabSheet.Caption := aForm.Name;

   //activate the sheet
   PageControl1.ActivePage := tabSheet;

Lo anterior lo tiene un boton en TFMain, pero digamos que tengo otro boton con el cual pretendo ejecutar la funcion "x" que está en "TFImagen", y he ahi el problema, cómo puedo acceder a esta funcion si el tabSheet fue creado dinamicamente???

He probado PageControl1.ActiveSheet.etc, pero no encuentro nada que me permita acceder a la funcion que está en otro form que fue creado dinamicamente.
Espero haberme explicado claro y no confundirlos mucho. y ojalá me puedan dar una ayuda, que me empieza a desesperar el asunto, de antemano gracias.

Última edición por jachguate fecha: 05-02-2008 a las 07:29:18. Razón: Añadir etiqueta delphi
Responder Con Cita