FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Procedimiento para llamar formas
Hola foro, pretendo crear un solo procedimiento con parametro para mostrar varias formas de acuerdo a la selección de un listado, la idea seria la siguiente:
begin ... VisualizaForma(NombreForma); ... end; procedure TfrmReportes.VisualizaForma(Forma : Tform); begin if not Assigned(Forma) then Forma := TForma.Create(Application); Forma.Showmodal; end; El usuario selecciona de un listado la forma, entoces se guarda el nombre en una variable NombreForma que es de tipo String y se pasa como parametro al procedimiento, pero al compilar el error es por los tipos de datos diferentes. Que debo hacer ? |
#2
|
||||
|
||||
Hola.
Lo primero que debes hacer es colocar el tipo de error que te sale, la plataforma de desarrollo, la versión de delphi. Saludos
__________________
En Colombia hay muchos, pero muchos colombianos muy buenos. Los violentos son pocos y los vamos a controlar... |
#3
|
|||
|
|||
Creo que en este caso no tiene que ver la plataforma de desarrollo y la versión de Delphi, sin embargo te comento que estoy trabajando con cliente-servidor y utilizo Delphi 7
El error recuerdo que traducido significa "Tipos de datos diferentes". |
#4
|
||||
|
||||
En resumen lo que necesitas es cómo poder crear un formulario a partir de su nombre. Una respuesta está en el hilo http://www.clubdelphi.com/foros/showthread.php?t=19194 que aunque fue abierto para formularios MDI en realidad aplica por igual a cualquier formulario.
// Saludos |
#5
|
|||
|
|||
Muchas gracias roman, voy a implementarlo.
|
#6
|
|||
|
|||
procedure myshowmodal(aClass:TclassForm; aForm:TForm);
begin if not assigned(aForm) then aForm:=aClass.Create(Self); try aForm.Showmodal; finally freeandnil(aForm); end; end; Espero te sirva |
#8
|
||||
|
||||
otra opcion
__________________
Gami ------------------------------------------------------------------ La necesidad no tolera tardanzas pero mas vale tarde que nunca |
|
|
|