![]() |
|
|
|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
||||
|
||||
|
Кто знает как можно в скомпилированной программе отключать и подключать панель инструментов (ToolBar) и отдельные ее кнопки.
Напишите, пожалуйста, код. Буду очень благодарен |
|
#2
|
|||
|
|||
|
Сныкать таскбар
var hTaskBar:THandle; begin hTaskbar:=FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,SW_HIDE); end; ********************************************** Показать таскбар var hTaskBar:THandle; begin hTaskbar:=FindWindow('Shell_TrayWnd',Nil); ShowWindow(hTaskBar,SW_SHOWNORMAL); ********************************************** |
|
#3
|
|||
|
|||
|
человек про ToolBar спрашивал...
А какой тулбар ты используешь? |
|
#4
|
||||
|
||||
|
ToolBar (панель инструментов) на вкладке Win32
|
|
#5
|
||||
|
||||
|
Ну вот так например:
Код:
with TIniFile.Create(ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do
begin
ToolBar1.Visible:=ReadBool('ToolBars', 'ToolBar1', True);
//и т. д.
Free;
end;Код:
//пишешь в событии OnCloseQuery
with TIniFile.Create((ExtractFilePath(Application.ExeName) + 'Toolbars.ini') do
begin
WriteBool('ToolBars', 'ToolBar1', ToolBar1.Visible);
//и т. д.
Free;
end; |
|
#6
|
||||
|
||||
|
огромное спасибо
|