ID menu item
Scot Storch © (2009-01-09 14:25:00)
Нужно сделать добавление пункта в системное меню приложения.
Как корректнее назначать ID моего пункта меню (через GlobalAddAtom
или же WM_USER + 1)
Юрий Зотов (2009-01-09 15:22:00) [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;
Наверх 
ЧАТ |
Орешник |
|
