Hola Enan0.
Cita:
Estoy necesitando, repertir una ventana (MDI child) que ya tengo funcionando correcta unas 10 veces mas, en forma de mosaico, el problema es que Estos mosaicos, deberian de estar contenido dentro de una ventana padre.
|
Eso se puede hacer sin problemas desde el
MDIForm, por ejemplo:
Código Delphi
[-]
...
function FormClone(aForm: TForm; aName: string):TForm;
var
ms : TMemoryStream;
F : TForm;
begin
ms := TMemoryStream.Create;
try
ms.WriteComponent(aForm) ;
ms.Position := 0;
F := TFormClass(aForm.ClassType).CreateNew(Application) ;
ms.ReadComponent(F) ;
F.Name := aName;
F.Caption := aName;
Result := F;
finally
ms.Free;
end;
end;
procedure TMDIForm.Panel1Click(Sender: TObject);
var
i: Integer;
begin
MDIChild1 := TMDIChild1.Create(Application);
for i:= 10 downto 1 do
FormClone(MDIChild1, 'MDIChild'+IntToStr(i+1));
TileMode:= tbVertical;
Tile;
...
end;
...
Cita:
¿Es posible que un MDI Child, Contenga N Mdichild's?
|
No, sólo un
MDIForm puede contener MDIChilds.
Saludos.