Скачать: CL | DM;

ID menu item   Найти похожие ветки 

← →
Scot Storch   (2009-01-09 14:25) [0]

Нужно сделать добавление пункта в системное меню приложения. Как корректнее назначать ID моего пункта меню (через GlobalAddAtom или же WM_USER + 1)

---

← →
Юрий Зотов ©   (2009-01-09 15:22) [1]

Глобальным Ваш пункт все равно не станет, поэтому как угодно, хоть просто константой. Лишь бы не перекрылся ID уже существующего пунктов системного меню (а все они больше 60000, насколько помню).

procedure TForm1.FormShow(Sender: TObject);
begin
 AppendMenu(GetSystemMenu(Handle, False), MF_STRING, 1, "Привет")
end;

procedure TForm1.WMSysCommand(var Message: TWMSysCommand);
begin
 inherited;
 if Message.CmdType = 1 then
   Caption := "Привет"
 else
   Caption := IntToStr(Message.CmdType)
end;


---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.007 c