Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Вниз
Системное меню Найти похожие ветки
← →
FnF (2002-10-19 16:51) [0]Следующий код не обрабатывает мой пункт в системном меню:
...
procedure SystemMenu(var Msg: TMessage);message WM_SysCommand;
...
implementation
const IDM_About=$C0;
{$R *.dfm}
procedure TMainForm.SystemMenu(var Msg:TMessage);
begin
if Msg.WParam=IDM_About then ShowMessage("Hello,World!");
inherited;
end;
...
procedure TForm1.FormCreate(Sender: TObject);
var SysMenu:HMenu;
begin
SysMenu:=GetSystemMenu(Application.Handle,False);
InsertMenu(SysMenu,UINT(4),MF_ByPosition,IDM_My,"Мой пункт меню");
...
end;
...
Хотя если поставить вместо Application.Handle просто Handle то появляется пункт в системном меню, которое выходит при нажатии на заголовке окна правой кнопкой. А мне надо чтоб оно выходило в системном меню, которое внизу на таксбаре. И что кстати за параметр bRevert:boolean?
Вообще в Delphi такая вот фигня: У него 2 системных меню: таскбар и заголовок. Приходится их модифицировать отдельно. Не то что в VC.
← →
FnF (2002-10-19 16:53) [1]Ошибочка:
вместо:
InsertMenu(SysMenu,UINT(4),MF_ByPosition,IDM_My,"Мой пункт меню");
надо:
InsertMenu(SysMenu,UINT(4),MF_ByPosition,IDM_About,"Мой пункт меню");
← →
TTCustomDelphiMaster (2002-10-19 17:43) [2]procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG;
var Handled: Boolean);
begin
if (Msg.message = WM_SysCommand) and (Msg.wParam = IDM_About) then
ShowMessage("By, Word!");
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.10.31;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.158 c