博客
关于我
强烈建议你试试无所不能的chatGPT,快点击我
用C++ Builder来定制系统菜单(转)
阅读量:2501 次
发布时间:2019-05-11

本文共 1605 字,大约阅读时间需要 5 分钟。

用C++ Builder来定制系统菜单(转)[@more@]通常在应用程序的主窗体中,利用鼠标左键点击左上角的图标,会弹出一个菜单,称之为“系统菜单”。在窗体中并没有系统菜单对应的组件,所以有时我们需要定制系统菜单时就比较麻烦。具体可以能过下面的步骤实现:
在系统菜单上添加所需的菜单项。
为新添加的菜单项定义OnClick事件的处理过程。
下面的例程中,在系统菜单中添加了一个“前端显示(A)”菜单项,通过该菜单项,可以使窗体始终显示在最前端或为普通窗体模式。具体实现过程如下:
1)通过菜单File|New Application创建一个新的工程。
2)添加窗体Form1的OnClick事件的处理过程如下:
void _fastcall TForm1::FormCreate(Tobject *Sender)
{
//设置系统菜单
AppendMenu(GetSystemMenu(Handle,false),MF_SEPARATOR,0,"");
AppendMenu(GetSystemMenu(Handle,false),MF_STRING,200,"前端显示(&A)");
}
3)在文件Unit1.h头文件中增加如下语句:
...
#include
...
4)在TForm1的类型定义中,添加系统菜单中新建菜单项的OnClick事件的处理过程的声明:
...
public://User declarations
__fastcall TForm1(TComponent *Owner);
MESSAGE void __fastcall SystemMenuCommand(TWMMenuSelect &Msg);
BEGIN_MESSAGE_MAP
MESSAGE_HANDLER(WM_SYSCOMMAND,TWMMenuSelect,SysteMenuCommand);
END_MESSAGE_MAP(TForm);
};
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)");
{
}

来自 “ ITPUB博客 ” ,链接:http://blog.itpub.net/10617731/viewspace-957399/,如需转载,请注明出处,否则将追究法律责任。

转载于:http://blog.itpub.net/10617731/viewspace-957399/

你可能感兴趣的文章
[P1121]环状最大两段子段和
查看>>
操作数据库出现InvalidOpertionException(内部连接致命错误)
查看>>
深入ASP.NET数据绑定(中)——数据双向绑定机理
查看>>
Toolbar使用
查看>>
mysql优化
查看>>
线程的几种创建方式
查看>>
免费的Bootstrap等待页面的应用模板
查看>>
JS DOM操作(四) Window.docunment对象——操作内容
查看>>
machine learning 之 Recommender Systems
查看>>
新房装修三大空鼓解决方法 为家居装修做好前奏
查看>>
vue.js路由vue-router
查看>>
小程序丨页面去掉转发按钮
查看>>
判断浏览器类型和版本
查看>>
51nod 1197 字符串的数量 V2(矩阵快速幂+数论?)
查看>>
Java之美[从菜鸟到高手演练]之JDK动态代理的实现及原理
查看>>
带你深入剖析inline-block属性值的前世今生
查看>>
Jenkins进阶系列之——01使用email-ext替换Jenkins的默认邮件通知
查看>>
Oracle data guard常用维护操作命令
查看>>
设计模式——策略模式
查看>>
用户标签数据
查看>>