Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.052 c
4-1235851954
Тыщ
2009-02-28 23:12
2010.08.27
Запустил раз — включилось, запустил второй — выключилось


2-1265737593
dmitry1208197320
2010-02-09 20:46
2010.08.27
Как скопировать данные из Exel в таблицу?


2-1269128085
allrussia
2010-03-21 02:34
2010.08.27
Поведение процедуры в потоке


9-1188158694
Mr.Vlad
2007-08-27 00:04
2010.08.27
Turn


2-1271164899
mlalx213
2010-04-13 17:21
2010.08.27
Задачка