Форум: "WinAPI";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Внизsystem menu Найти похожие ветки
← →
MARcoDEN (2002-02-22 08:29) [2]Вот примерчик, надеюсь поможет :)
type
TForm1 = class(TForm)
. . .
procedure HookSysCommand(var message:TWMSYSCOMMAND);message WM_SYSCOMMAND;
end;
implementation
const
My_MenuItem=$4000;
procedure TForm1.HookSysCommand(var message:TWMSYSCOMMAND);
begin
inherited;
if message.CmdType=My_MenuItem then ShowMessage("Пункт активизирован");
end;
procedure TForm1.FormCreate(Sender: TObject);
var SMenu : THandle;
begin
SMenu:=GetSystemMenu(Handle, False);
InsertMenu(SMenu, 1, MF_Byposition, My_MenuItem, "Новый пункт");
end;
Страницы: 1 вся ветка
Форум: "WinAPI";
Текущий архив: 2002.04.29;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.007 c