一个简单的菜单按钮的实现

原创 2002年01月05日 18:16:00

      使用过速达2000的朋友都知道,其基本资料的浏览界面中有一种按钮,点击后会弹出一个和按钮对得很整齐的菜单.用Delphi制作一个类似的控件十分容易,代码如下:

unit MenuBtnVCL;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Buttons, CommCtrl,
  ExtCtrls,Menus;

type
  TMenuBtn = class(TBitBtn)
  protected
    procedure DoEnter;override;
    procedure DoExit;override;
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    procedure Click; override;
    { Public declarations }
  published
    { AL: }
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TMenuBtn]);
end;


constructor TMenuBtn.Create(AOwner: TComponent);
begin
   inherited Create(AOwner);
   layout:=blGlyphRight;
   Font.Charset := GB2312_CHARSET;
   Font.Color := clWindowText;
   Font.Height := -12;
   Font.Name := '宋体';
end;

procedure TMenuBtn.Click;
var tmp:TPoint;
begin
  inherited Click;

   if Assigned(PopUpMenu) then
   begin
     { calc where to put menu }
     tmp := ClientToScreen(Point(0, Height));
     PopUpMenu.Popup(tmp.X, tmp.Y);
   end;
end;

procedure TMenuBtn.DoEnter;
begin
   Font.Style := [fsBold];
   inherited DoEnter;
end;

procedure TMenuBtn.DoExit ;
begin
   Font.Style := [];
   inherited DoExit;
end;

end.

     

cocos2d-x 实现菜单或者按钮的实现。

游戏,游戏,总是需要一个入口的,如果没有入口的话,那应该怎么玩呢? 所以我们就需要给他加入一个入口,就是例如:【游戏开始】【继续游戏】接下来我们就是要说一下怎么实现。 其实就和前面...
  • JuniorKang
  • JuniorKang
  • 2014年04月01日 22:27
  • 1895

js实现一个简单的树形菜单

在做练习的时候做到这个,想想觉得常常会用到,就做了下。看了下给的代码,晕了,小白菜看这种代码会晕的啊~~书的题目是《精通HTML5+CSS3+JavaScript网页设计》,小白拿来做练习,在这里吐槽...
  • woshixkl
  • woshixkl
  • 2016年07月22日 14:23
  • 3076

二级联动菜单,简单实现

/** * jQuery Linkage Menu * * Copyright 2014, sunyingyuan * QQ: 1586383022 * Email: yingyuansun...
  • sunyingyuan
  • sunyingyuan
  • 2014年03月04日 10:16
  • 3609

原生js实现手风琴菜单效果 与 css3的过渡实现手风琴效果

最近学了css3的变形、过渡和动画,写了一个用css3手风琴菜单的效果,又想着用原生JavaScript来实现手风琴菜单效果。感觉挺有意思的,现在给大家分享一下。 1、css3实现手风琴效果 ...
  • lgdshr123
  • lgdshr123
  • 2016年11月01日 17:23
  • 2290

java 图形用户界面

1.编程包含一个标签和一个按钮,单击按钮时,标签的内容在”你好”和”再见”之间切换。package s1;import java.awt.FlowLayout; import java.awt.eve...
  • wilver
  • wilver
  • 2016年06月10日 20:50
  • 351

C#点击按钮后其他按钮排列类似导航菜单

很多系统中都能用到这个功能,点击按钮其他button排列到相应的位置。 private void Form1_Load(object sender, EventArgs e) {     lis...
  • haoduo123456789001
  • haoduo123456789001
  • 2016年04月07日 10:02
  • 917

Android上实现一个简单的天气预报APP(四) 添加按钮点击响应

前面我们已经做好了简单的布局,并且实现了获取internet上网页的网络数据的功能。接下来,我们绑定一个按钮,当点击这个按钮时,执行获取网络数据动作。 1.为我们顶部工具栏中的表示更新的图片绑定一个按...
  • v_xchen_v
  • v_xchen_v
  • 2017年02月25日 11:37
  • 1983

Qt中如何利用QPushButton来实现一个弹出菜单

今天,需要做一个弹出菜单的工具栏,于是在网上去找这类的代码,手下找到的是类似于以下的代码: 是通过QPushButton类里面的函数 SetMenu(QMenu* );来实现的 代...
  • u011619422
  • u011619422
  • 2015年08月24日 16:31
  • 818

Android的menu(菜单)按钮的使用(by 星空武哥)

Android的菜单按钮 1.使用xml的方式创建菜单项         a.在res下的menu目录下新建一个main.xml文件,以menu为根节点,添加一个item就是菜单项 1 ...
  • lsyz0021
  • lsyz0021
  • 2016年04月21日 23:41
  • 3311

点击文字左侧滑出菜单

无标题文档 #div1{ width:150px; height:250px; background:#999999; position:absolute; ...
  • yangmingxing980
  • yangmingxing980
  • 2014年03月24日 11:15
  • 651
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:一个简单的菜单按钮的实现
举报原因:
原因补充:

(最多只允许输入30个字)