Hallo jungs...hallo PD!
Was haltet ihr von dieser lösung?
Delphi-Quellcode:
implementation
{$R *.dfm}
var f:TForm;
procedure TForm1.Button1Click(Sender: TObject);
begin
f := StrToForm('TForm1');
if f<>nil then f.Show;
end;
function StrToForm(className:string):TForm;
var c:TClass;
begin
c:=FindClass(className);
if (c<>nil) and c.InheritsFrom(TForm) then result := TFormClass(c).Create(nil);
end;
initialization
registerclass(TForm1);
end.
..warum nicht bereits vorhandene möglichkeiten nutzen?
mfg