Исходники.Ру - Программирование
Исходники
Статьи
Книги и учебники
Скрипты
Новости RSS
Магазин программиста

Главная » Статьи по программированию » Delphi - Все статьи »

Обсудить на форуме Обсудить на форуме

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

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

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;

Может пригодится:


Автор: Fernando Silva
Прочитано: 3890
Рейтинг:
Оценить: 1 2 3 4 5

Комментарии: (0)

Добавить комментарий
Ваше имя*:
Ваш email:
URL Вашего сайта:
Ваш комментарий*:
Код безопастности*:

Рассылка новостей
Рейтинги
© 2007, Программирование Исходники.Ру