Главная страница
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.015 c
3-1215425858
Александр В Б
2008-07-07 14:17
2009.02.22
Как работать с типом поля VARBYTES


1-1207677282
Тыщ
2008-04-08 21:54
2009.02.22
Как выравнить код и данные на границу 16 байт?


2-1231438760
NEWichok
2009-01-08 21:19
2009.02.22
Как организовать проверку перед "POST"?


2-1228673231
dr_creigan
2008-12-07 21:07
2009.02.22
Excel


15-1229869312
DillerXX
2008-12-21 17:21
2009.02.22
А правда что