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);

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