Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.28;
Скачать: CL | DM;

Вниз

Активация MDIChild формы через Toolbar   Найти похожие ветки 

 
_MAXi_   (2003-04-17 13:16) [0]

Есть 3 MDIChild формы (Captions: A, B, C). Все они минимизированы и надо их вызывать (Активировать) через кнопки Toolbar"а (точно так же как это делают команды пункта меню Window в самом конце) А когда закрываю окно (нпр. В), что бы кнопка тоже исчезала!


 
AlexSV ©   (2003-04-17 13:31) [1]

Активизировать можно так: MDIChild.BringToFront

> А когда закрываю окно (нпр. В), что бы кнопка тоже исчезала!
Свяжи кнопку с окном и убивай при закрытии окна


 
_MAXi_   (2003-04-17 14:03) [2]

> Активизировать можно так: MDIChild.BringToFront
:)
Это понятно, но я кнопки создаю динамически и onClick событие им тоже создаю динамически! Так ти мне лучше напиши, что в процедуре той писать? Ведь я не могу просто написать MDIChild.BringToFront мне надо этот MDIChild найти ещё!!! :)


 
AlexSV ©   (2003-04-17 14:11) [3]

Свяжи кнопку с окном, например
MyButton.Tag := Longint(MyMDIChildForm);

В onClick пишеш
TForm(TComponent(Sender).Tag).BringToFront;


 
_MAXi_   (2003-04-17 14:26) [4]

Спасибо!!!!!!!!!!
Всё пашет! Только может можешь пояснить оператор TForm(TComponent(Sender).Tag).BringToFront???
И ещё, может знешь, как при закрытии Toolbar"a через его крестик (а не через соответствующий пункт меню) убирать галочку с того пунта меню автоматически, т.е. поймать событие onClose Toolbar"a?


 
_MAXi_   (2003-04-17 14:29) [5]

Хотя оператор TForm(TComponent(Sender).Tag).BringToFront я уже понял! :)


 
AlexSV ©   (2003-04-17 14:44) [6]

>... убирать галочку с того пунта меню ...

?


 
_MAXi_   (2003-04-17 15:12) [7]

Есть меню Тoolbars и в нём пункт My Bar, у которого свойство Cecked:=true; Я вытаскиваю Toolbar (при помощи Drag&Dock операции) из формы и закрываю его через крестик. При этом я хочу что бы при закрытии этого Toolbar"a автоматически свойство Cecked пункта My Bar было бы FALSE


 
AlexSV ©   (2003-04-17 15:53) [8]

Чтоб долго не рассказывать предлагаю:
1. Открой пример ../Demos/Docking.
2. Найди в ActionList1 Action - ViewToolBar1.
3. В обработчике события onUpdate напиши следующий код:
ToolBar11.Checked := ToolBar1.Visible;

Запусти и посмотри. Ну а дальше по вкусу.



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

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

Наверх




Память: 0.48 MB
Время: 0.02 c
6-91438
Berzercer
2003-03-06 15:02
2003.04.28
Узнать имя ЮЗЕРа, изменивщего файл


14-91506
Mike Kouzmine
2003-04-10 11:45
2003.04.28
Можно ли по документу определить принтер


3-91230
mikl2002
2003-04-10 13:31
2003.04.28
InterBase + Linux + FIBPlus


7-91555
Tolian
2003-03-09 17:50
2003.04.28
Как узнать разрешение экрана ?


4-91593
ScaliaR
2003-02-17 03:27
2003.04.28
как получить hwnd edit a по его содержимому.