pasar el nombre de una forma como parametro

[Willo]

Buen dia a todos;

como podria pasarle el nombre de una forma como parametro a una funcion/procedimiento y tratarla como un Tform valido ahi?; es decir, poder modificar su anchura y altura, desplegarla, etc.

Gracias de antemano!

Saludos

[Neftali [Germán.Estévez]]

Si le pasas el nombre, luego puedes recorrer los forms abiertos (revisa la variable Screen) y comprobar cual es el que coincide con el nombre del parámetro.

[Willo]

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...

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;

[*Caro*]

[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

[[AzidRain]]

ZArko Gajic tiene precisamente un ejemplo de esto:

Crear una forma a partir de su nombre

Ahi viene precisamente lo que quieres, te enseña como hacer una función " CreateFormFromName(s);" que recibe una cadena que es el nombre del form.

[Neftali [Germán.Estévez]]

Empezado por Willo

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...

En ese caso la opción de buscarlo está claro que no sirve.
Para crearlo a partir del nombre, debes tener el algun sitio la correspondencia entre el nombre y el apuntador a la clase que te permita crearlo.

O lo matienes tú (por ejemplo una lista con nmbre y apuntadores a las clases) o como se ve en el ejemplo de Zarko Registrando las clases de los formularios (RegisterClass) y accediendo luego a ellas por RTTI (FindClass).

[roman]

Aqui en casa, también tenemos algunos ejemplos

http://clubdelphi.com/foros/showpost...85&postcount=2
http://clubdelphi.com/foros/showpost...11&postcount=4

// Saludos

[Kipow]

Yo utilizo con mucho exito la opcion que das en el link 2 roman, por cierto gracias jaja creo que la uso desde ya hace un par de años.