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

通过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;