5）手工添加系统菜单中新建菜单项的OnClick事件的处理过程如下：
void __fastcall TForm1::SystemMenuCommand(TWMMenuSelect &Msg)
{
TForm::Dispatch(&Msg);
if(Msg.IDItem==200)
{
if(Form1->FormStyle==fsNormal)
{
//将窗体设置为总在前端显示
Form1->FormStyle=fsStayOnTop;
//重新设置系统菜单
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,\"\");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,\"前端显示(&A)\");
//在新添加的菜单项前增加一个选中标志
ModifyMenu(GetSystemMenu(Handle,false),200,MF_CHECKED,200,\"前端显示(&A)\");
}
}
else
{
//将窗体设置为普通模式
Form1->FormStyle=fsNormal;
重新设置系统菜单
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,\"\");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,\"前端显示(&A)\");
{
}
上一页 [1] [2]
