登录
首页 » Delphi源码 » Delphi 在程序运行过程中动态添加菜单

Delphi 在程序运行过程中动态添加菜单

于 2022-03-22 发布 文件大小:7.21 kB
0 159
下载积分: 2 下载次数: 1

代码说明:

Delphi创建动态菜单,在程序运行过程中动态添加菜单,点击“添加菜单”按钮,会在菜单栏中增加一个“编辑”菜单项,预设中每次添加的菜单项都是“编辑”,这也是为了验证不要添加重复的菜单项,代码中的判断是一种方法,另外也可以通过菜单项的Caption属性来判断,不过之前最好设置AutoHotkeys和AutoLineReduction为maManual。在以下创建菜单项的代码中:   self.MainMenu1.AutoHotkeys:=maManual;   self.MainMenu1.AutoLineReduction:=maManual;   通过设置这两个属性可以禁止程序自动为菜单生成热键,否则程序会自动在菜单的Caption属性中加入热键,并且会修改Caption属性的值,给通过Caption属性判断菜单项带来麻烦。

下载说明:请别用迅雷下载,失败请重下,重下不扣分!

发表评论

0 个回复

  • Delphi实现RGB色环的绘制 XE10.2+WIN764
    Delphi实现RGB色环的绘制源码 XE10.2+WIN764,鼠标移动时提取颜色RGB的值,可以设置中心圆是否是透明的,RGB色环的代码绘制,传入图片的大小,扣出中心的黑色圆,输入图片与中心圆的半径。这个色环的颜色十分精细,过渡十分自然,本例子代码的参考价值还是挺大的。
    2022-06-27 11:06:18下载
    积分:1
  • Delphi 获取拖动到窗体中的文件的路径
    Delphi 获取拖动到窗体中的文件的路径,这实际上是一个拖放打开文件的例子,这只不是其中的一个步骤,拖放打开是把文件拖放到本窗口中,直接打开该文件,而拖放得到路径是把文件的路径显示在窗口中,和打开文件其实难易程序是一样的。拖放后获取文件路径,代码如下:   procedure TForm1.FileIsDropped(var Msg: TMessage);   var    NumFiles : longint;    i : longint;    FName : array[0..255] of char;   begin    SetForegroundWindow(Handle);    NumFiles := DragQueryFile(Msg.WParam,$FFFFFFFF,nil,0);    for i := 0 to (NumFiles - 1) do    begin    DragQueryFile(Msg.WParam,i,FName,sizeof(FName));    Memo1.Lines.Add(FName);    end;   end;
    2022-09-25 15:45:03下载
    积分:1
  • Delphi 模拟Windows “显示桌面”功能
    Delphi 模拟Windows “显示桌面”功能,对于功能就不再详述了,单击后,会看到Windows桌面,具体的实现方法也挺简单的,下面几行代码就搞定了:   if IsWindowVisible(h) then    PostMessage(h, WM_SYSCOMMAND, SC_MINIMIZE, 0);   h := GetNextWindow(h, GW_HWNDNEXT);   完整的可编译源码请你下载源码包吧。
    2023-06-01 06:10:03下载
    积分:1
  • Delphi 自定义播放窗口
    Delphi 自定义播放窗口,指定视频显示窗口,本源码演示的重点主要是播放器窗口外观的设计,调用了外部的一张jpg图片做为播放器的主窗口,让窗口风格首先看上去具有播放器程序的风格,因此,在美化窗口时如何使用jpg格式的图片,是本例要表现的重点功能,希望对窗体设计感兴趣的Delphi初学者好好学习研究一番哦。   本播放器虽然重在演示窗口功能的实现,不过它真的可以播放视频文件,比如mpg格式的文件。
    2022-05-25 21:56:20下载
    积分:1
  • Delphi POP3接收邮件-Email客户端例子
    Delphi POP3接收邮件-Email源码实例,像是一个邮件客户端那样,设定好邮件服务器相关参数后,可连接到邮件服务器,接收邮件,本例子仅包括邮件接收功能,不能发送邮件哦。使用本程序需要设置的参数:邮件服务器POP3、端口、邮件帐户、密码,连接成功后,邮件列表会显示在“邮件”一栏中,单击任意一个邮件,详细信息会显示在“内容”栏中。
    2022-12-15 05:00:03下载
    积分:1
  • Delphi实现TdxDBTreeView节点全部展开或收拢
    本源码演示如何实现Delphi TdxDBTreeView节点全部展开或收拢功能,也就是大家熟悉的树形菜单节点的折叠或展开功能,在平时的使用中,树形节点是很常用的一个菜单功能,本例子的树形菜单节点功能读取自数据库,因此在测试前请连接好数据库。   //单击全部展开按钮   procedure TForm1.Button1Click(Sender: TObject);   begin    dxDBTreeView1.FullExpand;   end;    //单击全部收拢按钮   procedure TForm1.Button2Click(Sender: TObject);   begin    dxDBTreeView1.FullCollapse;   end;
    2022-01-26 05:17:01下载
    积分:1
  • Delphi 实现组件立体阴影、投影效果
    Delphi 为组件制作立体效果,实现组件的阴影、投影效果,这种阴影效果不是很细腻,不过大致也说得过去,必竟实现方法简单,原生Delphi方法实现,不依靠三方控件,最终效果请参见测试截图所示。
    2022-07-03 03:09:14下载
    积分:1
  • Delphi 使同类的组件进行同样的操作
    Delphi 使同类的组件进行同样的操作的一个实例,类似于将WEB表单统一清空的功能,点击按钮后,所有文本框组件的内容被清空,作用在相同的组件实例上,代码:   procedure TForm1.Button2Click(Sender: TObject);   begin    Close;   end;      procedure TForm1.Button1Click(Sender: TObject);   var    ClearText : Integer;   begin    For ClearText := 0 to Form1.ComponentCount -1 do    begin    //判断如果窗体中包含文本框组件,则将所有文本框组件的内容清空    if Form1.Components[ClearText] is TEdit then    begin    TEdit(Components[ClearText]).Clear;    end;    end;   end;
    2022-05-23 05:25:03下载
    积分:1
  • 方格变换的Delphi图像显示,类似于马赛克
    方格变换的Delphi图像显示,类似于那种动态的马赛克效果,电视上经常见到这种图像切换的效果,当然网页上的一些焦点图切换也会常见到这种图像转场的过渡效果,相比直来直去的切换,增加了一些视觉效果,不至于那么单调。   本效果适用的图像格式了BMP位图,其它图片格式未做测试。
    2022-07-18 02:39:41下载
    积分:1
  • Delphi 垂直交错显示效果
    图片的垂直交错效果,Delphi 编写的图片垂直交错显示效果,之前就分享过这种效果,类似百叶窗的交替显示效果,可用于图片转场,不过本效果还有很多地方需要优化,当时是写给一本书,作为随书实例的,有兴趣的可参考,关于本功能的关键代码部分,请看以下代码:   newbmp:= TBitmap.Create;   newbmp.Width:=image1.Width;   newbmp.Height:=image1.Height;   bmpheight:=image1.Height;   bmpwidth:=image1.Width;   i:=0;   while i0 do    begin    newbmp.Canvas.CopyRect(Rect(0,j-1,bmpwidth,j),image1.Canvas,Rect(0,bmpheight-i+j-1,bmpwidth,bmpheight-i+j));    newbmp.Canvas.CopyRect(Rect(0,bmpheight-j-1,bmpwidth,bmpheight-j),image1.Canvas,Rect(0,i-j,bmpwidth,i-j+1));    j:=j-2;    Application.ProcessMessages;    end;    form1.Canvas.Draw(0,0,newbmp);    i:=i+2;   end;   newbmp.free;
    2023-04-12 21:35:03下载
    积分:1
  • 696516资源总数
  • 106457会员总数
  • 15今日下载