Главная страница
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.067 c
15-1271933235
Den
2010-04-22 14:47
2010.08.27
Процессы


15-1268677017
AntonioBanderas
2010-03-15 21:16
2010.08.27
из prn в rtf


15-1269116259
Petr V. Abramov
2010-03-20 23:17
2010.08.27
Россия вернула себе первенство в Специальной Олимпиаде


2-1274643123
RWolf
2010-05-23 23:32
2010.08.27
Выполнить код при завершении программы


2-1265893182
Б
2010-02-11 15:59
2010.08.27
Какие аудио форматы поддерживает MCI?