Закрывание 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!

Bar_A это tToolBar?

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

Аha!! :)

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

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