Скачать: CL | DM;

Процедура для открытия 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

---

← →
Игорь Шевченко ©   (2010-04-10 23:10) [4]

> 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]

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.053 c