从实作标题栏按钮开始浅谈组件的制作

时间:2010-01-28 08:40:52  来源:第二电脑网  作者:第二电脑网

  第二电脑网导读:标题栏上显示按钮的组件,像最大化、最小化和关闭按钮等。最新的Winamp MP3播放器,它有一个插件可以在任何窗体上显示一排播放按钮,我想通过下面的技术也可以实现。  1、首性确定组件的属性。属性是组件的重要组成部分,它相当于组件的门面,因为一旦一个组件被置于窗体中时,用户必然想到去设置组件的各种属性,编写各种事件的处理过程。TTitleBarButton有以下属...
  正文:开发组件的过程,其实就是从某一对象派生出一个新的对象,并且为该对象声明新的属性、方法和事件。下面我将通过制作一个标题栏按钮来讲述如何制作组件。

  标题栏按钮组件TTitleBarButton以TComponent为直接继承对象,它是一个可以在窗体标题栏上显示按钮的组件,像最大化、最小化和关闭按钮等。最新的Winamp MP3播放器,它有一个插件可以在任何窗体上显示一排播放按钮,我想通过下面的技术也可以实现。

  1、首性确定组件的属性。属性是组件的重要组成部分,它相当于组件的门面,因为一旦一个组件被置于窗体中时,用户必然想到去设置组件的各种属性,编写各种事件的处理过程。TTitleBarButton有以下属性:

Color:用来决定按钮表面的颜色。

Glyph:用来决定按钮表面的图片。

PopupMenu:用来决定右键单击按钮时的弹出菜单。

RightMargin:用来确定按钮的位置,以窗体右边界为基准。

Visible:用来决定按钮是否可见。

  2、确定组件的方法。方法是组件的基础构成部分之一,在编写方法时,尽量减少方法间的依赖关系,并确定方法的可见度,以及是否为虚函数等。在本例中,主要方法如下:


function GetBoundsRect: TRect;

用来确定按钮的边界矩形,可见度为private



procedure NewWndProc(var message: TMessage); 窗体的新的窗口过程,private

procedure Paint; virtual; 该类的继承者可以override该方法,但用户不能直接调该方法

procedure Repaint; 是Paint方法的对外接口,用户可以调用此方法,以强制重新画按钮



  3、确定组件的事件。事件实际上是一种特殊的属性,它也是组件的很重要组成部分,事件为组件响应系统发生的行为而执行的一段代码连接。事件就是方法指针,是方法的触发器。TtitleBarButton只有一个事件:

OnClick事件,用来响应用户的Click事件代码。

另外,要减少组件的依赖关系。使一个组件在执行其代码时所受的约束尽可能地少,这是开发组件的一个主要目标,它也是衡量一个组件性能好坏的重要标准之一。

实现标题栏按钮需要解决以下主要问题:
1、 如何确定按钮的边界,即Left,Top,Width,Height

通过GetWindowRect来取得窗体的边界矩形,通过GetSystemMetrics取得窗体的框架宽度和标题栏按钮的高度、宽度。再加上RightMargin属性就可以基础上确定按钮的边界了。

2、 如何画按钮的外观(包括按下和凸起)
通过GetWindowDC来取得窗体DC(包括标题栏、菜单、滚动条等),我们就可以在这个DC上画按钮了。

3、 如何让按钮响应消息(比如Click,单击右键弹出菜单等)

我们可以通过GetWindowLong取得窗体的窗口过程,然后把我们新定义的窗口过程通过SetWindowLong给这个窗体,然后我们在自己的窗口过程中来让按钮响应消息。

全部代码如下:

unit TitleBarButton;
interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Menus, Dialogs;

type

TTitleBarButton = class(TComponent)
private
FColor: TColor;
FGlyph: TBitmap;
FForm: TCustomForm;
FOldWndProc: Pointer;
FButtonDown: Boolean;
FVisible: Boolean;
FRightMargin: Cardinal;
FPopup: TPopupMenu;
FOnClick: TNotifyEvent;
procedure SetGlyph(const Value: TBitmap);
procedure SetVisible(const Value: Boolean);
procedure SetRightMargin(const Value: Cardinal);
function GetBoundsRect: TRect;
procedure NewWndProc(var message: TMessage);

protected
procedure Notification(Component: TComponent;Operation: TOperation); override;
procedure Paint; virtual;

public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Repaint;
property BoundsRect: TRect read GetBoundsRect;
published
property Color: TColor read FColor write FColor default clBtnFace;
property Glyph: TBitmap read FGlyph write SetGlyph;
property PopupMenu: TPopupMenu read FPopup write FPopup;
property RightMargin: Cardinal read FRightMargin write SetRightMargin default 66;
property Visible: Boolean read FVisible write SetVisible default False;
property OnClick: TNotifyEvent read FOnClick write FOnClick;
end;

"从实作标题栏按钮开始浅谈组件的制作"由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Language/Delphi/12536.html

 1/4    1 2 3 4 下一页 尾页


关键字:

关于《从实作标题栏按钮开始浅谈组件的制作》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td