multiples instancias de una ventana
Publicado por oscar (14 intervenciones) el 29/03/2006 23:07:01
hola
necesito crear multiples instancias de una ventana (NO MDI), para ello hice lo siguiente:
myventana: Tmyventana;
function TForm1.creaVentana;
begin
myfrmViewer := TfrmViewer1.Create(Application);
end;
---------------------------------------
procedure Tmyventana.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
pero al partecer no me permite crear mas de una instancia de la clase (o sea del formulario) y la aplicacion genera una excepcion y termina.
Como hacerlo?
necesito crear multiples instancias de una ventana (NO MDI), para ello hice lo siguiente:
myventana: Tmyventana;
function TForm1.creaVentana;
begin
myfrmViewer := TfrmViewer1.Create(Application);
end;
---------------------------------------
procedure Tmyventana.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
pero al partecer no me permite crear mas de una instancia de la clase (o sea del formulario) y la aplicacion genera una excepcion y termina.
Como hacerlo?
Valora esta pregunta


0