Процедура для открытия Child форм

← →
Evgeney (2010-04-10 22:00) [0]

Есть процедура проверки и открытия дочерней формы:
Procedure TBase_Form.operatorsClick(Sender: TObject); Var i:integer; flag:boolean; Begin flag := true; For i:=0 to Screen.FormCount-1 do Begin If (Sender as TMenuItem).Name = "operators" then if Screen.Forms[i].Name = "Form_operators" then begin Screen.Forms[i].Show; if Screen.Forms[i].WindowState=wsMinimized then Screen.Forms[i].WindowState:=wsMaximized; flag := false; end End; if flag then Form_operators:=TForm_operators.Create(Self); end;

Как можно вынести данный код в отдельную процедуру, например procedure Show_Child(тут передаем например имя класса формы);
чтобы не писать повторяющийся код на каждой кнопке, спасибо.

← →
Харакири (2010-04-10 22:12) [1]

См. Application.CreateForm();

← →
Evgeney (2010-04-10 22:29) [2]

мне нужно передать 3 переменные, например:
Show_Child("Form_operators", Form_operators, TForm_operators)
вот я и не могу понять как передать Form_operators, TForm_operators, получается:
Show_Child(Form_name:string; Form_name:TForm; а как тут быть?);

← →
Evgeney (2010-04-10 23:02) [3]

т.е. как передать в функцию TForm_operators

> Show_Child(Form_name:string; Form_name:TForm; а как тут
> быть?);

Show_Child(Form_name:string; Form_name:TForm; AFormClass: TFormClass)

← →
Evgeney (2010-04-11 08:11) [5]

Спасибо Игорю Шевченко, вопрос решен.

Процедура для открытия Child форм Найти похожие ветки