Форум: "Начинающим";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Вниз

MDI   Найти похожие ветки 

← →
Medved_   (2007-02-06 12:00) [0]

Уважаемые мастера.
Решил сделать процедуру для создания MDI-окон.

Вот почти готовый пример:

procedure CreateMDIWindow(AForm:TForm;ACaption:string;CalculateWindow:Boolean;CreateOneWin dow:Boolean);
var
x:TComponentClass;
begin
 LockWindowUpdate(Application.MainForm.Handle);
 inc(CountWindow);
 AForm:=TActiveUsers_f.Create(nil);
 AForm.FormStyle:=fsMDIChild;
 if CalculateWindow = true then
   AForm.Caption:=ACaption+#32+inttostr(CountWindow)
 else
   AForm.Caption:=ACaption;
 AForm.Show;
 LockWindowUpdate(0);
end;

Как мне указать класс окна (не указывая TActiveUsers_f),
а чтобы приложение само понимало, что надо создавать
окно того типа, что надо (TAForm).

Пример использования:
CreateMDIWindow(ActiveUsers_f,"Активные пользователи",True,False);

Заранее спасибо.

---

← →
ЮЮ ©   (2007-02-06 12:12) [1]

type
 TFormClass = class of TForm;

procedure CreateMDIWindow(AFormClass:TFormClass;ACaption:string;CalculateWindow:Boolean;Cr eateOneWin dow:Boolean);
var
 aForm:TForm

 aForm := AFormClass.Create(nil);

Пример использования:
CreateMDIWindow(TAForm, "Активные пользователи",True,False);

---

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

Форум: "Начинающим";
Текущий архив: 2007.02.25;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.045 c