Ver Mensaje Individual
  #3  
Antiguo 10-03-2009
Willo Willo is offline
Miembro
 
Registrado: jun 2006
Posts: 116
Reputación: 18
Willo Va por buen camino
Gracias por la respuesta Neftali;

en mi caso la forma en cuestion no va a estar abierta, de hecho la funcion a la que le paso el nombre, la abre....

Esta es la funcion actual, usando como parametro un Tform; quiero cambiarlo a un string...

Código:
procedure Tfmenu.Abreforma(F: TForm; ParentControl:TWinControl);
begin
     if (GformaActiva<>F) then
     begin
          if Assigned(GformaActiva) then
              GformaActiva.Close;
          F.BorderStyle  := bsNone;
          F.Parent       := ParentControl;
          F.Align        := alClient;
          GformaActiva   := F;

          if skindata1.active then
              skindata1.AddNestForm(self,F);

          F.Show;
     end
     else
          F.Show;
end;
Responder Con Cita