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

Закрывание ToolBar   Найти похожие ветки 

← →
_MAX_   (2003-04-11 17:33) [0]

У меня есть меню View->ToolBars->Bar_A. У команды Bar_A свойство Checked:=true Когда я "вытаскиваю" Bar_A и закрываю его то как програмно узнать, что Bar_A уже закрыт и по-этому Checked надо сделать false!

---

← →
NickBat ©   (2003-04-11 17:37) [1]

а) Когда закрываешь свой Бар снимай пометку с меню
б) if TollBar.Visible=false

---

← →
_MAX_   (2003-04-11 17:44) [2]

Когда закрываю!!! :) Это я понимаю, но где написать этот оператор if TollBar.Visible=false

---

← →
NickBat ©   (2003-04-11 17:53) [3]

Где-то ты пишешь ToolBar.Hide? Вот на следующей строке напиши
Menu.Checked:=false;

---

← →
Roma ©   (2003-04-11 17:53) [4]

А зачем его где-то писать?...

procedure TForm1.View_ToolBars_BarAMenuItemClick(Sender: TObject);
begin
with Sender as TMenuItem do // или as TAction, если сделать
// обработчик в акции
begin
Checked := not Checked;
BarAToolBar.Visible := Checked;
end;
end;

---

← →
_MAX_   (2003-04-11 18:17) [5]

Ребята, поймите, что я его закрываю не через меню, а через крестик на нём и не пишу ни каких ToolBar.Hide!

---

← →
NickBat ©   (2003-04-11 18:22) [6]

Bar_A это tToolBar?

---

← →
_MAX_   (2003-04-11 18:30) [7]

Аha!! :)

---

← →
Bel ©   (2003-04-11 18:54) [8]

Можно вставить if TollBar.Visible=false в событие OnClick меню верхнего уровня (ToolBars). Правда, если ты ещё где-нибудь в программе используешь Bar_A.Checked, оно может быть неправильным. А если "галочка" нужна только для визуализации, тогда всё нормально.

---

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

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



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