Листинг 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).