![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | 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  
			
			
			
			
		 
		
		
	 | 
||||
		
		
  | 
||||
| 
	
	
		
			
			 огромное спасибо 
		
	
		
		
		
		
		
	
		
		
	
	
	 |