Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.012 c