PDA

Ver la Versión Completa : Registrar Clase Form no autocreada


ramflores
16-08-2011, 17:41:43
Buen dia foristas.

Les expongo este detalle que traigo, anduve buscando y no encontre como.

Mi detalle es el siguiente

Tengo una Form no-Autocreable, en tiempo de ejecucion, la puedo mandar llamar de la siguiente forma:

Primero debo registrar la clase en el create de la forma del menu
procedure TFrmMenu.FormCreate(Sender: TObject);
begin
RegisterClass( TFrmPais );
RegisterClass( TFrmEstados );
end;

Posteriormente la mando llamar de la siguiente forma:
procedure TFrmMenu.gpoCatalogosItems0Click(Sender: TObject);
var
FormName: string;
AForm: TForm;
begin
CierraForms;
FormName := 'FrmPaises';
Application.CreateForm(TFormClass(FindClass('T'+FormName)), AForm);
pnlTitulo.Caption := AForm.Caption;
VerForma(AForm, Forma);
end;

y sin problema, todo funciona bien, mi detalle es que como hacer lo del
RegisterClass( TFrmPais );

pero sin ponerlo fijo, requiero algo como:

RegisterClass( 'TFrmPais' );

Pero no encuentro la manera.

Espero haberme explicado.

Gracias de antemano