Удалить пункт системного меню

Delphi , Компоненты и Классы , Меню

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.Button1Click(Sender: TObject);
 var
   Handle: THandle;
 begin
   Handle := GetSystemMenu(Self.Handle, False);
   RemoveMenu(Handle, 1, MF_BYPOSITION);
   RemoveMenu(Handle, 2, MF_BYPOSITION);
 end;

Статья Удалить пункт системного меню раздела Компоненты и Классы Меню может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Меню ::