Ver Mensaje Individual
  #2  
Antiguo 02-04-2006
Avatar de jmariano
jmariano jmariano is offline
Miembro
 
Registrado: jul 2005
Posts: 376
Reputación: 19
jmariano Va por buen camino
Se puede, pero has de utilizar la función FindClass para buscar la clase a inicializar a través de su nombre y registrar dicha clase antes de localizarla utilizando el método RegisterClass. Ej:
Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  x: string;
begin
  x := 'TForm1';

  with TFormClass(FindClass(x)).Create(Self) do
  begin
    ShowModal;
    Free;
  end;
end;

initialization
  RegisterClass(TForm1);
Responder Con Cita