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

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

Процедура для открытия Child форм [D7, XP]

Evgeney ©   (2010-04-10 22:00:00) 

Есть процедура проверки и открытия дочерней формы:
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(тут передаем например имя класса формы);
чтобы не писать повторяющийся код на каждой кнопке, спасибо.

---

Evgeney   (2010-04-11 08:11:00) [1]

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

---

Игорь Шевченко   (2010-04-10 23:10:00) [2]

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


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

---

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

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

---

Evgeney   (2010-04-10 22:29:00) [4]

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

---

Харакири   (2010-04-10 22:12:00) [5]

См. Application.CreateForm();

---

Наверх