![]()  | 
	
 
  | 
		
			
  | 	
	
	
		
		|||||||
| Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны | 
![]()  | 
	
	
| 
		 | 
	Опции темы | Поиск в этой теме | Опции просмотра | 
| 
		 
			 
			#1  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Здравствуйте, скажите как отключить кнопки "свернуть", "свернуть в окно" и "закрыть" в заголовке у формы. Напишите коды пожалуйста и путь, чтобы знать куда это все записывать. Мне у 40 форм надо это сделать. 
		
	
		
		
		
		
		
		
			Последний раз редактировалось Dimasian, 22.04.2010 в 13:59. Причина: так надо  | 
| 
		 
			 
			#2  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 выдели свои 40 форм и дай свойстве borberstyle значение bsNone или их  нужно именно отключить?) 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#3  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 Ну в общем хотелось бы узнать и как их отключить, не только заблкировать. Мне главное чтобы во время работы программы они не были активны, т.е при нажатии на них ничего не сворачивалось, не закрывалось. 
		
	
		
		
		
		
		
	
		
		
	
	
	 | 
| 
		 
			 
			#4  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 можешь вот так  еще  сделать 
		
	
		
		
		
		
		
	
		
		
	
	
	Код: 
	procedure TForm1.Button1Click(Sender: TObject);
begin
        {Disable}
        Form1.BorderIcons := Form1.BorderIcons - [biSystemMenu, biMinimize, biMaximize];
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
        {Enable}
        Form1.BorderIcons := Form1.BorderIcons + [biSystemMenu, biMinimize, biMaximize];
end;подо6ие предыдушего варианта, только шапка останется  | 
| 
		 
			 
			#5  
			
			
			
			
		 
		
		
	 | 
|||
		
		
  | 
|||
| 
	
	
		
			
			 А что, у формы свойство BorderIcons уже отменили? 
		
	
		
		
		
		
		
	
		
		
	
	
	 |