Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.21;
Скачать: 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 вся ветка

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

Наверх




Память: 0.48 MB
Время: 0.023 c
14-67530
V-A-V
2003-04-04 13:00
2003.04.21
Компонент для создания архивов


3-67108
alexander_ua
2003-04-02 15:33
2003.04.21
Почему не удаляются записи из таблицы?


4-67611
dkDimon
2003-02-20 23:00
2003.04.21
Ресурсы


7-67599
jen_bond
2003-02-27 14:40
2003.04.21
Узнать буквенное обозначение cd-roma


1-67356
romychk
2003-04-08 23:24
2003.04.21
Планирование событий