一个简单的菜单按钮的实现计算机等级考试

文章作者 100test 发表时间 2010:01:01 09:32:12
来源 100Test.Com百考试题网

　　使用过速达2000的朋友都知道,其基本资料的浏览界面中有一种按钮,点击后会弹出一个和按钮对得很整齐的菜单.用Delphi制作一个类似的控件十分容易,代码如下:
　　unit MenuBtnVCL.
　　interface
　　uses
　　Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
　　Buttons, CommCtrl,
　　ExtCtrls,Menus.百考试题－全国最大教育类网站(100test.com)
　　type
　　TMenuBtn = class(TBitBtn)
　　protected
　　procedure DoEnter.override.
　　procedure DoExit.override.
　　{ Protected declarations }
　　public
　　constructor Create(AOwner: TComponent). override.
　　procedure Click. override.www.Ｅxamda.CoM考试就到百考试题
　　{ 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 := [].来源：www.examda.com
　　inherited DoExit.
　　end.
　　end.

　　编辑特别推荐:

　　全国计算机等级考试资料下载

　　全国计算机等级考试论坛

　　如何应付二级考试中的公共基础知识

　　全国计算机等级考试上机考试应试技巧

　　百考试题教育全国计算机等级考试在线测试平台