delphi 自定义popupmenu_Delphi PopupMenu

PopupMenu控件在standard组中。

假设你所创建的PopupMenu对象为pm1:TPopupMenu,PopupMenu所关联的控件为sbtn1:TSpeedButton.则需要在sbtn1的属性中，设置PopupMenu为pm1,这样点击sbtn1的时候，PopupMenu就会弹出来。

添加PopupMenu中的一个item：

首先声明item:TMenuItem,

item := TMenuItem.Create(pm1);

item.Caption := '该item的名字';

item.OnClick := MenuItemClick;//设置点击该item时，应该响应的事件

item.Tag := 0;

pm1.Items.Add(item);

如果你要添加n个item，则声明items:array of TMenuItem.

SetLength(items, n);

for i := 0 to

n - 1 do

begin

items[i]

:= TMenuItem.Create(pm1);

items[i].Caption := sFile[i];

items[i].OnClick := MenuItemClick;

items[i].Tag := i;

pm1.Items.Add(items[i]);

end;

设置PopupMenu弹出的位置，这里设置成在SpeedButton的右下方：

pt := sbtn1.ClientToScreen(Point(0,

0));//speedbutton在屏幕的位置

pt.X := pt.x +

sbtn1.Width;

pt.Y := pt.Y +

sbtn1.Height;

pm1.Popup(pt.X, pt.Y);

delphi 自定义popupmenu_Delphi PopupMenu相关推荐

delphi 自定义popupmenu_Delphi PopupMenu菜单为ListView的每个Items使用[原创]
马上注册,结交更多好友,享用更多功能^_^ 您需要登录才可以下载或查看,没有帐号?立即注册 x 本帖最后由『C.』Study... 于 2012-6-14 11:05 编辑最近做一个Case就 ...
delphi 自定义popupmenu_delphi PopupMenu动态创建菜单
动态地创建菜单,通常我们使用以下的语句PopupMenu1 := TPopupMenu.Create(Self); Item := TMenuItem.Create(PopupMenu1); Item ...
delphi自定义事件处理
http://www.cnblogs.com/ywangzi/archive/2012/09/06/2673414.html delphi自定义事件处理为什么我们点击按钮,就会执行按钮的onclic ...
delphi 自定义popupmenu_自定义popupmenu菜单背景色
procedure TForm1.N11DrawItem(Sender: TObject; ACanvas: TCanvas; ARect: TRect; Selected: Boolean); be ...
一个简单的DELPHI自定义事件的例子(转)
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ...
delphi自定义统一基础设置_Java项目构建基础：统一结果，统一异常，统一日志...
作者:永动的图灵机 juejin.im/post/5e073980f265da33f8653f2e 统一结果返回目前的前后端开发大部分数据的传输格式都是json,因此定义一个统一规范的数据格式有利于 ...
Delphi自定义过程获取本机ip，名字，用户名
//取本机的 IP 地址 function ComputerLocalIP: string; var ch: array[1..32] of char; wsData: TWSAData; ...
Delphi自定义获取网卡MAC地址过程
//获取网卡MAC地址=============================================================== procedure CvtInt; asm ...
delphi 入门教程
引用:http://huihua.hebtu.edu.cn/hhcmc/study/program/delphi1/ DELPHI基础教程第一章 Delphi快速入门(一) 第一章 Delphi快速 ...

delphi 自定义popupmenu_Delphi PopupMenu

delphi 自定义popupmenu_Delphi PopupMenu相关推荐

最新文章

热门文章