Главная страница
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-1229614558
Добежал
2008-12-18 18:35
2009.02.22
Сообщение Vista Эта программа, возможно, установлена неправильно


15-1230215717
sniknik
2008-12-25 17:35
2009.02.22
SQL запрос на создание Indexed поля с Yes (No Duplicates)


4-1206106972
chak_xakep
2008-03-21 16:42
2009.02.22
Как на Delphi посредством WIN32API создать MainMenu


15-1230283845
vajo
2008-12-26 12:30
2009.02.22
Радиоконструктор Экон-1


15-1230091521
TUser
2008-12-24 07:05
2009.02.22
Выворачиваем сферу наизнанку