Hallo !
Ist es möglich an ein Funktion einen Klassentyp zu übergeben ?
Bsp.:
procedure MakeForm(Form:TForm;[Name der Klasse]);
begin
if (Form as TForm)=nil then
begin
(Form as TForm):=[Name der Klasse].Create(Application);
end;
(Form as TForm).Show;
end;
mfg Frank Büchner
Ist es möglich an ein Funktion einen Klassentyp zu übergeben ?
Bsp.:
procedure MakeForm(Form:TForm;[Name der Klasse]);
begin
if (Form as TForm)=nil then
begin
(Form as TForm):=[Name der Klasse].Create(Application);
end;
(Form as TForm).Show;
end;
mfg Frank Büchner