Справочник функций

Ваш аккаунт

Войти через: 
Забыли пароль?
Регистрация
Информацию о новых материалах можно получать и без регистрации:

Последние темы форума

Показать новые сообщения »

Почтовая рассылка

Подписчиков: 11639
Последний выпуск: 19.06.2015

Как скрыть кнопку "х" в заголовке окна.

Автор: Fernando Silva
www.исходники.ru

Пример показывает, как при инициализации формы происходит поиск нашего окна, а затем вычисление местоположения нужной нам кнопки в заголовке окна.

procedure TForm1.FormCreate(Sender: TObject); 
var 
  hwndHandle: THANDLE; 
  hMenuHandle: HMENU; 
  iPos: Integer; 
 
begin 
  hwndHandle := FindWindow(nil, PChar(Caption)); 
 
  if (hwndHandle  0) then 
  begin 
    hMenuHandle := GetSystemMenu(hwndHandle, FALSE); 
    if (hMenuHandle  0) then 
    begin 
      DeleteMenu(hMenuHandle, SC_CLOSE, MF_BYCOMMAND); 
      iPos := GetMenuItemCount(hMenuHandle); 
      Dec(iPos); 
      { Надо быть уверенным, что нет ошибки т.к. -1 указывает на ошибку } 
      if iPos > -1 then 
        DeleteMenu(hMenuHandle, iPos, MF_BYPOSITION); 
    end; 
  end; 
end;

Оставить комментарий

Комментарий:
можно использовать BB-коды
Максимальная длина комментария - 4000 символов.
 
Реклама на сайте | Обмен ссылками | Ссылки | Экспорт (RSS) | Контакты
Добавить статью | Добавить исходник | Добавить хостинг-провайдера | Добавить сайт в каталог