obtener el nombre del formulario

[sargento elias]

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:

procedure Tfmantenimiento.PonerCod(fform : Tform);
begin

if Trim(fform.dbedit1.Text) = '0' then begin
fform.dbedit1.SetFocus;
fform.dbedit1.Text := '';
Exit;
end;
end;

Gracias.

[coso]

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


procedure Tfmantenimiento.PonerCod(fform : TfMiTipoForm);
...


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


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;

[sargento elias]

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