saludos a todos
tambien puedes hacer esto para formulario normales..
pon este codigo desde donde llamas a tu formulario.
try
Form1:=Tform1.create(self); // Te crea el formulario en memoria
form1.ShowModal; // Muestra el formulario
finally
form1.release; //libera el formulario de la memoria cuando termine
end;
Si no quieres escribir mucho solo declara esta funcion para llamarla desde cualquier lugar.
function ShowForm(aForma:TFormClass):boolean;
//*----------------------[Funcion LoadForm]-------------------**
//* Objetivos : Llamar a un formulario **
//* Creada por : Raptor **
//* Fecha Octubre 2003 **
//* Ejemplo ShowForm(TCliente) **
//**************************************************************
var
Self:TComponent;
begin
With aForma.Create(Self) do
try
ShowModal;
finally
Free;
end;
Result :=True;
end;
para llamar a un formulario lo unico que debes hacer es :
ShowForm(Tform1); // llama la forma que tu quiere
y listo
|