看看下面的，不知道你会不会满意。我要吃饭了。
unit ButtonEx;
interface
uses
Windows, Messages, SysUtils, Classes, Controls, StdCtrls, Graphics;
type
TButtonEx = class(TButton)
private
FCanvas: TCanvas;
protected
procedure WndProc(var Message: TMessage); override;
public
constructor Create(AOwner: TComponent);override;
destructor Destroy;override;
published
{ Published declarations }
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('dwh', [TButtonEx]);
end;
constructor TButtonEx.Create(AOwner: TComponent);
begin
inherited;
FCanvas := TControlCanvas.Create;
TControlCanvas(FCanvas).Control := Self;
self.DoubleBuffered := true;
end;
destructor TButtonEx.Destroy;
begin
FCanvas.free;
inherited;
end;
procedure TButtonEx.WndProc(var Message: TMessage);
begin
inherited;
case Message.Msg of
WM_PAINT,WM_LBUTTONDOWN,WM_LBUTTONDBLCLK,WM_LBUTTONUP:
begin
FCanvas.TextRect(self.ClientRect,0,0,'hello');
end;
end;
end;
end.
]
