Форум: "Начинающим";
Текущий архив: 2009.02.22;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.007 c