Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2009.02.22;
Скачать: 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 вся ветка

Текущий архив: 2009.02.22;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
15-1229507025
nnov
2008-12-17 12:43
2009.02.22
iphone и im apollo


9-1176916840
ElectriC
2007-04-18 21:20
2009.02.22
Проблема с камерой


15-1230090393
Slider007
2008-12-24 06:46
2009.02.22
С днем рождения ! 24 декабря 2008 среда


2-1231741847
abhtr
2009-01-12 09:30
2009.02.22
Как отмечать записи в TListBox


2-1231500357
Scot Storch
2009-01-09 14:25
2009.02.22
ID menu item