ToolBar1>>>ToolButton1 есть вопросик...

[aesoem]

Всем привет, если создать кнопку в sToolBar1 через контекстное меню ToolButton1 у него есть свойство стиль и там есть "tbsCheck". как ето использовать? я пробовал через условного оператора:

procedure TForm1.ToolButton1Click(Sender: TObject);
begin
ToolButton1.CheckMenuDropdown=true then
Panel1.visible1:=true else  Panel1.visible1:=false;
end;

Срабатует сразу ELSE = кароче не пашет, как им пользоватся

[mihali4]

А где, собственно, оператор IF ?
И, может быть, вот так все-таки:

Panel1.visible1:=ToolButton1.Down;

[aesoem]

Panel1.visible1:=ToolButton1.CheckMenuDropdown;:ro lleyes:





Это тока вкл а выкл?

[pu4koff]

Сообщение от aesoem

Panel1.visible1:=ToolButton1.CheckMenuDropdown;:ro lleyes:

Это тока вкл а выкл?

а если всеже в проге это написать и попробовать? или почитать про булеву алгебру?

[mihali4]

Посмотрите еще раз мой пост, я там автоматически повторил вашу ошибку насчет ToolButton1.CheckMenuDropdown. А причем тут это меню?
Должно быть ToolButton1.Down.

[aesoem]

кароче


procedure TForm1.ToolButton20Click(Sender: TObject);
begin
if webbrowser1.Offline=true then
webbrowser1.Offline:=false else webbrowser1.Offline:=True;
end;

[pu4koff]

еще кароче:
webbrowser1.Offline := not webbrowser1.Offline;

[mihali4]

А если вернуться к исходному вопросу, то
webbrowser1.Offline:=ToolButton1.Do wn;

[aesoem]

спасибо.......................

[aesoem]

Привет, как создать закладку в WebBrowser1?
и как сохранить страничку на диск?