Главная страница
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.056 c
2-1265874675
tonich
2010-02-11 10:51
2010.08.27
Класс/Компонет


4-1232054248
Vemer
2009-01-16 00:17
2010.08.27
Как программа может узнать о запуске хранителя экрана?


15-1275780985
re83
2010-06-06 03:36
2010.08.27
Подскажите софт для создания таких эффектов


2-1271243860
kiligin
2010-04-14 15:17
2010.08.27
Работа с TListView


3-1243590436
gog
2009-05-29 13:47
2010.08.27
Прочитать unicode данные из Oracle