Ver Mensaje Individual
  #4  
Antiguo 10-03-2009
Avatar de Caro
*Caro* Caro is offline
Moderadora
 
Registrado: jul 2004
Ubicación: Cochabamba, Bolivia
Posts: 2.544
Reputación: 22
Caro Va por buen camino
[quote=Willo;340766

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

Hola, si quieres pasar el form como String entonces tienes que utilizar FindComponent.

Código Delphi [-]
 
procedure Tfmenu.Abreforma(StrForm: String .....);
var
 Forma :TComponent;
begin  
   Forma := Application.FindComponent(StrForm);
   ..........................
   Forma.BorderStyle  := bsNone;
   Forma.Parent       := ParentControl;
   Forma.Align        := alClient;
   ........................... 
   Forma.Show;
end;

Saluditos
__________________
Disfruten cada minuto de su vida a lado de sus seres queridos como si fuese el ultimo, uno nunca sabe lo que puede pasar.
Responder Con Cita