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