Форум: "Система";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Вниз
Как передать для динамического создания имя класса и имя объекта? Найти похожие ветки
← →
_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 вся ветка
Форум: "Система";
Текущий архив: 2003.10.16;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.012 c