Обновлено: 01 декабря, 2018

Затенить кнопку закрыть в заголовке формы в 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;

Рейтинг автора

Автор статьи

Юрий

Программист Delphi, MySQL. Образование: высшее. Специальность: программное обеспечение информационных технологий.

Написано статей

439

(11 оценок, среднее: 5,00 из 5)

Загрузка...