DELPHI/Часто задаваемые вопросы и ответы на них/Пользовательский интерфейс



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Пользовательский интерфейс / Затенить кнопку закрыть в заголовке формы

Затенить кнопку закрыть в заголовке формы

Следующий текст убирает команду закрыть из системного меню и одновременно делает серой кнопку закрыть в заголовке формы:
procedure TForm1.FormCreate(Sender: TObject); 
var hMenuHandle:HMENU; 
begin 
 hMenuHandle := GetSystemMenu(Handle, FALSE); 
 IF (hMenuHandle <> 0) THEN 
  DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); 
end; 
Copyright © "Мастера DELPHI" E-mail: delphi@mastak.com http://www.delphimaster.ru

Источник получения информации: http://www.delphimaster.ru