| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

MDI [D6]

Medved_ ©   (2007-02-06 12:00:00) 

Уважаемые мастера.
Решил сделать процедуру для создания 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:00) [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);

---

Наверх