15 respuestas en este tema

[Rolphy Reyes]

Saludos.

Tengo un inconveniente muy grande, por lo menos para mí.

Este es el escenario, lo pondré lo más simple posible, dos formularios (Main y Child) uno fsMDIForm y otro fsMDIChild; desde el Main con este código basta para crear y mostrar el Child.

delphi

procedure TMain.Button2Click(Sender: TObject);
var
  AForm : TChild;
begin
  AForm := TChild.Create(Self);
end;

Se crea y se muestra con el código anterior, entonces, necesito poder interceptar o detener el Show para poder asignarles una series de valores a propiedades del Child y poder hacer uso de la instancia del objeto previo al Show.

Siendo estos valores útiles desde el Evento OnShow del Child.  Ya intente con class properties que al final lo que hace uso es de Class Function y Class Procedure, con esto se soluciona parte, pero se me daña la patineta es cuando necesito la instancia del Objeto desde Main antes del Show.

Espero haber sido claro, ahora bien, si tienen otra idea mejor, bienvenida sea!

[TiammatMX]

delphi

procedure TMain.Button2Click(Sender: TObject);
var
  AForm : TChild;
begin
  AForm := TChild.Create(Self);
end;

Inmediatamente después de la creación de AForm, podría quedar algo así... (los colores no los toma muy bien, pero lo intentaré):

delphi

procedure TMain.Button2Click(Sender: TObject);
var
  AForm : TChild;
begin
  AForm := TChild.Create(Self);
  aform.variable := svalor;
  aform.funcion(svalor);
  aform.procedimiento;
  aform.Show;
end;

[Rolphy Reyes]

Saludos.

Gracias TiammatMX, pero con el código que puse, el formulario se muestra, osea hace un Show sólito sin hacer la llamada.

Es ahí donde me rompe las p......, necesito la instancia del Objeto una vez creado para asignar valores y desde el Evento OnShow utilizar dichos valores.

Gracias nuevamente.

[egostar]

Y no puedes utilizar el evento OnCreate de la forma heredada ?

algo así

delphi

// TChild
 
procedure TChild.FormCreate(Sender: TObject);
begin
  Form1.Mensaje := 'Evento Crear';
  ShowMessage(form1.mensaje);
end;

delphi

// Main
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    Mensaje: string;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  AForm : TChild;
begin
  AForm := TChild.Create(Self);
end;

Salud OS

[Rolphy Reyes]

Saludos.

Al parecer no me he dado a entender.

Con el código que puse en el mensaje anterior el formulario Child se crea y se muestra, hasta aquí, por así decirlo, no hay problemas.

Mi inconveniente resulta en que debo de utilizar la instancia de Child creada en Main y desde Main poder realizar esto Child.Propiedad := Valor.

Entonces en el Child utilizar el valor de Propiedad desde su evento OnShow para realizar un par de sentencias.

Espero haber sido más claro.

[egostar]

Si, te entiendo perfectamente, lo que pasa es que no puedes asignar ninguna propiedad hasta que la forma es creada, sea Child o Normal.

Esto lo puedes hacer de esta forma

delphi

// MDIChild
 
procedure TChild.FormCreate(Sender: TObject);
begin
  Align := Form1.pAlign;
  Caption := Form1.pCaption;
end;

delphi

// Main
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    pAlign: TAlign;
    pCaption: String;
  end;
 
var
  Form1: TForm1;
 
implementation
 
uses Unit2;
 
{$R *.DFM}
 
procedure TForm1.Button1Click(Sender: TObject);
var
  AForm : TChild;
begin
  pAlign := alLeft;
  pCaption := 'Prueba de Propiedades en MDIChild';
  AForm := TChild.Create(Self);
end;
 
end.

Salud OS

[Rolphy Reyes]

Saludos.

Es excelente solución siempre y cuando el Child y Main se conozcan, estén en uso sus unidades, pero en mi caso los formularios no se conocen ni deben, porque me rompería la estructura de mi "FrameWork".

Este es un ejemplo de dos formularios, pero en la realidad son varios formularios distintos que son creados por el Main sin conocer a sus Childs y viceversa.

[egostar]

Ahora si que la pones mas complicada mi estimado Rolphy, de alguna forma debes de 'conectar' los formularios, por ejemplo a través de archivos externos.

Salud OS

[Rolphy Reyes]

Ahora si que la pones mas complicada mi estimado Rolphy, de alguna forma debes de 'conectar' los formularios, por ejemplo a través de archivos externos.

Salud OS

Realmente es a través de acciones, he construido mis propias acciones y vaya que resulta cómodo para estos asuntos de crear formularios y pasar parámetros y demás.

Pero me he quedado corto en esta parte y ando como loco llevo un buen rato buscando solución a esto.

[egostar]

Pues yo me quedo igual corto, no doy para mas :$

Salud OS

[kafastoforman]

Se me ocurre algo como esto:

delphi

.
.
.
begin
 
with TChild.Create(self) do
try
  PAlign:= alNone;
  pCaption:= 'something';
  Show;
finally
  free; 
end;
 
end;

Eso lo hago con formularios normales y hasta que se ejecuta el show o showmodal se muestra la pantalla, lo que no se, es que si se puede hacer con formularios del tipo child.

Saludos

Kafastoforman

[Rolphy Reyes]

Se me ocurre algo como esto:

delphi

.
.
.
begin
 
with TChild.Create(self) do
try
  PAlign:= alNone;
  pCaption:= 'something';
  Show;
finally
  free; 
end;
 
end;

Eso lo hago con formularios normales y hasta que se ejecuta el show o showmodal se muestra la pantalla, lo que no se, es que si se puede hacer con formularios del tipo child.

Saludos

Kafastoforman

Gracias, pero sigue igual.

[Héctor Randolph]

Propongo otro enfoque

En lugar de interceptar el evento OnShow, lo que se puede hacer es crear un evento nuevo llamado AfterCreate y en este evento recibes la instancia del formulario recién creado.

Aquí un poco de código:

En el formulario Child creamos el nuevo evento sobrecargando el constructor

delphi

unit CHILDWIN;
 
interface
 
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, Dialogs;
 
type
  TMDIChild = class;
  // Definimos la estructura de nuestro evento que recibe la instancia recién creada
  TAfterCreateEvent = procedure (Sender:TMDIChild)of object;
  TMDIChild = class(TForm)
    Memo1: TMemo;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
  private
    FProp1: String;
    { Private declarations }
  public
    { Public declarations }
    //Escribimos un nuevo constructor
    constructor NuevoConstructor(AOwner:TComponent;Event:TAfterCreateEvent);
   //Una nueva propiedad para hacer pruebas
    property Propiedad1:String read FProp1 write FProp1;
  end;
 
implementation
 
{$R *.dfm}
 
procedure TMDIChild.FormShow(Sender: TObject);
begin
  ShowMessage(Propiedad1);
end;
 
constructor TMDIChild.NuevoConstructor(AOwner: TComponent; Event: TAfterCreateEvent);
begin
  inherited Create(AOwner); // Llamamos al constructor por default
  // Aquí llamamos nuestro evento AfterCreate
  // y le enviamos la instancia recién creada
  if Assigned(Event) then
   Event(Self);
end;
 
procedure TMDIChild.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;
 
end.

Ahora en el formulario principal creamos el procedimiento que será llamado justo después de creado el  child y luego llamamos al nuevo constructor

delphi

unit MAIN;
 
interface
 
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, Menus,
  StdCtrls, Dialogs, Buttons, Messages, ExtCtrls, ComCtrls, StdActns,
  ActnList, ToolWin, ImgList,CHILDWIN;
 
type
  TMainForm = class(TForm)
.
.
.
.
    procedure AfterCreate(Sender:TMDIChild);
  private
    { Private declarations }
    procedure CreateMDIChild(const Name: string);
  public
    { Public declarations }
  end;
 
var
  MainForm: TMainForm;
 
implementation
 
{$R *.dfm}
 
//En este evento podemos asignarle valores a las propiedades del child
procedure TMainForm.AfterCreate(Sender: TMDIChild);
begin
  Sender.Propiedad1:='Hola';
end;
 
procedure TMainForm.CreateMDIChild(const Name: string);
var
  Child: TMDIChild;
begin
  { creaamos un nuevo MDI child y le asignamos el evento que vamos a disparar}
  Child := TMDIChild.NuevoConstructor(Application,AfterCreate);
end;
.
.
.
.
.
etc...

De esta forma tenemos un evento que se dispara justo después de crear la instancia y para cuando se dispara el evento OnShow del formulario las propiedades ya tienen sus valores.

Saludos

P.D. Adjunto el ejemplo

Archivos adjuntos

•  1199_9ab892b6a12d48864c9fb4b63ef611137e264646.zip   10,57KB   4 descargas

[kafastoforman]

Se me ocurre algo como esto:

delphi

.
.
.
begin
 
with TChild.Create(self) do
try
  PAlign:= alNone;
  pCaption:= 'something';
  Show;
finally
  free; 
end;
 
end;

Eso lo hago con formularios normales y hasta que se ejecuta el show o showmodal se muestra la pantalla, lo que no se, es que si se puede hacer con formularios del tipo child.

Saludos

Kafastoforman

Gracias, pero sigue igual.

no, ¿en serio?, lo que creo que pasa, es que en el codigo que te di, solo actualiza las variables, pero si en vez de eso le modificas directamente el align y el caption de la forma deberia resultar, por que si no le pones showmodal o show entre el try y el finally tu formulario no deberia aparecer. intenta quietarselo para ver si tengo o no la razon.

Saludos.

Kafastoforman

[Rolphy Reyes]

Gracias a todos.

Kafastoforman, el problema seguirá latente mientras la ventana sea MDIChild, puesto que al crear el formulario el mismo dispara el Show.  Y como estoy necesitando la instancia del objeto pasara igual con cualquier código parecido.

Me quedo con la solución de Héctor Randolph, es un nuevo enfoque, veré como lo adapto a lo que tengo sin tener muchos rompimientos de código.  Por cierto, Héctor mucho tiempo sin verte, saludos compañero.

Mientras pasare el hilo como resuelto.

[egostar]

Ah vaya que bien, llegó quien si sabe de esto, ya tengo algo que estudiar y aplicar

Salud OS