发信人: delphilxh(先锋)
整理人: teleme(2001-04-25 01:03:36), 站内信件
|
procedure TForm1.Button3Click(Sender: TObject);
var
item: TMenuItem;
sysmenuHandle: HMENU;
i, itemcount: Integer;
buffer: array [0..128] of Char;
itemID: Integer;
itemflags: DWORD;
begin
handleNeeded;
//得到系统菜单的handle
sysmenuHandle := GetSystemMenu( handle, false );
If sysmenuHandle <> 0 Then
Begin
//得到系统菜单的个数
itemcount := GetMenuItemcount( sysmenuHandle );
for i:= 0 to itemcount - 1 do
begin
//得到指定菜单项的当前状态
itemflags := GetMenuState( sysmenuhandle, i, MF_BYPOSITION );
//如果是横线
If (itemflags and MF_SEPARATOR) = MF_SEPARATOR Then
item := NewLine
Else Begin
//得到指定菜单项的Caption
GetMenuString( sysmenuhandle, i, buffer, sizeof(buffer),MF_BYPOSITION );
//得到指定菜单的在系统菜单中的ID
itemID := GetMenuItemID( sysmenuhandle, i );
//创建新的MenuItem
item := NewItem( buffer, 0,
(itemflags and MF_CHECKED) = MF_CHECKED,
(itemflags and (MF_DISABLED or MF_GRAYED)) = 0,
SystemMenuClick,
0,
format('Sysmenu_%d',[itemid]));
item.tag := itemID;
End;
systemmenu.Add( item );
end;
End;
end;
procedure TForm1.SystemMenuClick(Sender: TObject);
begin
With Sender As TMenuitem do
Self.perform( WM_SYSCOMMAND, Tag, 0 );
end;
|
|