Скачать: CL | DM;

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

← →
_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]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.014 c