...

Листинг 1.26.

Добавление пунктов в системное меню окна

procedure TForm1.FormCreate(Sender: TObject);

var hSysMenu: HMENU;

begin

hSysMenu := GetSystemMenu(Handle, False);

AppendMenu(hSysMenu, MF_SEPARATOR, 0, \'\');

AppendMenu(hSysMenu, MF_STRING, 10001, \'Увеличить на 20%\');

AppendMenu(hSysMenu, MF_STRING, 10002, \'Уменьшить на 20%\');

end;

В результате системное меню формы Forml станет похожим на меню, показанное на рис. 1.18.

Рис. 1.18. Пользовательские пункты в системном меню

Однако мало просто создать пункты меню, нужно предусмотреть обработку их выбора. Это делается в обработчике сообщения WM_SYSCOMMAND (листинг 1.27).

Загрузка...