Как передать для динамического создания имя класса и имя объекта?

← →
_Harry (2003-08-04 12:57) [0]

Я пишу следующее:
procedure TfmStMainForm.ServiceStartImportExecute(Sender: TObject);
var
fmStartImport:TfmStartImport;
t,CurMDIWind:integer;
NoCreate:Boolean;
begin
NoCreate:=False;

for CurMDIWind:=0 to Self.MDIChildCount do
begin
if (Self.MDIChildren[CurMDIWind] is TfmStartImport)
then begin
NoCreate:=True;
t:=CurMDIWind;
end;
end;

if Not NoCreate
then begin
fmStartImport:=TfmStartImport.Create(Application);
if fmStartImport<>nil then fmStartImport.Show;
end
else Self.MDIChildren[t].Show;
end;

procedure TfmStMainForm.SpravLgotExecute(Sender: TObject);
var
fmSpravLgot:TfmSpravLgot;
t,CurMDIWind:integer;
NoCreate:Boolean;
begin
NoCreate:=False;

for CurMDIWind:=0 to Self.MDIChildCount do
begin
if (Self.MDIChildren[CurMDIWind] is TfmSpravLgot)
then begin
NoCreate:=True;
t:=CurMDIWind;
end;
end;

if Not NoCreate
then begin
fmSpravLgot:=TfmSpravLgot.Create(Application);
if fmSpravLgot<>nil then fmSpravLgot.Show;
end
else Self.MDIChildren[t].Show;
end;

т.е. для MDI окна создаю экземпляры класса. А хотелось бы в функцию передавать имя класса и имя создаваемого объекта. Как это можно реализовать?

← →
VMcL © (2003-08-04 13:23) [1]

Может в качестве примера подойдёт TApplication.CreateForm ?

← →
_Harry (2003-08-04 14:48) [2]

Да, спасибо за идею.

Как передать для динамического создания имя класса и имя объекта? Найти похожие ветки