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

最新推荐文章于 2023-10-31 23:41:39 发布

xm4014

最新推荐文章于 2023-10-31 23:41:39 发布

阅读量1k

点赞数

分类专栏： Delphi 文章标签： constructor delphi forms interface layout windows

本文链接：https://blog.youkuaiyun.com/xm4014/article/details/14700

版权

Delphi 专栏收录该内容

6 篇文章

订阅专栏

使用过速达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.