Комментарии к коду

[Ярослав]

Нашел текст с вопросом и ответом
содержание следующие
вопрос
Каким образом можно изменить системное меню формы?
ответ
Не знаю как насчет акселераторов, надо поискать, а вот добавить Item - пожалуйста
объясните что этот код означает
type
TMyForm=class(TForm)
procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
end;

const
ID_ABOUT = WM_USER+1;
ID_CALENDAR=WM_USER+2;
ID_EDIT = WM_USER+3;
ID_ANALIS = WM_USER+4;

implementation

procedure TMyForm.wmSysCommand;
begin
case Message.wParam of
ID_CALENDAR:DatBitBtnClick(Self) ;
ID_EDIT :EditBitBtnClick(Self);
ID_ANALIS:AnalisButtonClick(Self);
end;
inherited;
end;

procedure TMyForm.FormCreate(Sender: TObject);
var
SysMenu:THandle;

begin
SysMenu:=GetSystemMenu(Handle,False );
InsertMenu(SysMenu,Word(-1),MF_SEPARATOR,ID_ABOUT,'');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Calendar, 'Calendar');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Analis, 'Analis');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Edit, 'Edit');
end;
заранее спасибо

[Ярослав]

Ни кто не знает что ли или отвечать не хотите

[mutabor]

Если ты не понимаешь код, значит тебе рано его понимать, повышай сложность постепенно. Это тебе щас целую лекцию читать надо про WinAPI.

[Jeni]

Каждый раз, когда выбирается пункт в системном меню (в заголовке окна, слева), программе посылается сообщение с кодом WM_SYSCOMMAND, чтобы программа могла на это отреагировать.

type
   TMyForm=class(TForm)
   procedure wmSysCommand(var Message:TMessage); message WM_SYSCOMMAND;
   end;

Здесь объявляется процедура wmSysCommand, которая будет автоматически вызываться в ответ на сообщение WM_SYSCOMMAND (то, что имена процедуры и константы совпадают, не имеет значения, вернее, не имеет значения имя процедуры, главное указать правильную константу сообщения).

const
ID_ABOUT  = WM_USER+1;
ID_CALENDAR=WM_USER+2;
ID_EDIT  =  WM_USER+3;
ID_ANALIS = WM_USER+4;

Это номера пунктов меню. Все номера должны быть уникальными, часть номеров зарезервировано системой до номера WM_USER (кажется он равен 8000, это неважно). Любые номера после WM_USER можно использовать по своему усмотрению.

procedure TMyForm.wmSysCommand;
begin
case Message.wParam of
ID_CALENDAR:DatBitBtnClick(Self) ;
ID_EDIT  :EditBitBtnClick(Self);
ID_ANALIS:AnalisButtonClick(Self);
end;
inherited;
end;

Это процедура-обработчик, которая была объявлена в начале, просто у нее "пропущены" параметры - это допускается правилами языка, но лучше писать полностью: procedure TMyForm.wmSysCommand(var Message:TMessage);
В ней проверяется номер выбранного пункта меню и если он равен ID_CALENDAR, ID_EDIT или ID_ANALIS, то вызываются соответствующие дополнительные подпрограммы. Потом вызывается "обработчик по умолчанию", чтобы могли обработаться и другие пункты меню

procedure TMyForm.FormCreate(Sender: TObject);
var
  SysMenu:THandle;
begin
SysMenu:=GetSystemMenu(Handle,False);
InsertMenu(SysMenu,Word(-1),MF_SEPARATOR,ID_ABOUT,'');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Calendar, 'Calendar');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Analis, 'Analis');
InsertMenu(SysMenu,Word(-1),MF_BYPOSITION,ID_Edit, 'Edit');
end;

При запуске программы она добавляет к своему системному меню дополнительные пункты с заданными номерами.

[Ярослав]

большое спасибо