obtener el nombre del formulario
 

Buenos días estoy haciendo una plantilla y he creado un procedimiento para esa plantilla, pero necesito obtener el nombre del formulario de cada pantalla asociada a la plantilla para pasárselo como parámetro. Ejemplo:

Gracias.

Código Delphi [-]
fform.name;

eso te da el nombre del form pero....no creo q te funcione. Deberas crear la funcion sobre un parametro de la clase que tu quieres que sea....(la que tenga los dbedits, etc...)

Código Delphi [-]
procedure Tfmantenimiento.PonerCod(fform : TfMiTipoForm);
...

of bien usar el ...as... dentro del codigo

Código Delphi [-]
procedure Tfmantenimiento.PonerCod(fform : TForm);
begin
           try 
               (fform as TfMiTipoForm).DbEdit.Text = '0' then
               ...
           except
              ShowMessage('Error ' + fform.name + ' no es un formulario tipo TfMiTipoForm');
           end;
end;

gracias
 

Muchas gracias, he tenido que usar tu segunda opción y funciona perfectamente, gracias.