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

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

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