Delphi中编写OwnerDraw方式按钮的方法以及注意点

{在Win32标准控件库中(comctl32.dll)的控件绝大部分的控件都支持自画(OwnerDraw)功能的
设置，这里以按钮为例子说说此类控件在delphi中的编写方式以及应该注意的问题！由于标
准的按钮都有一套规定的外观标准（由windows的comctl32.dll中的代码绘制），为了给用户
一个自己绘制控件的机会，多数的控件都支持在创建的时候设置一个标志来告诉系统这个控
件需要自己绘制，例如按钮中有：BS_OWNERDRAW，菜单的有：MF_OWNERDRAW等等(还有诸如：
ComboBox,ListBox都有这方面的特性)，在delphi中设置这个标志不需要按Win32的方式那样
在窗口类中定义，只要在CreateParams方法中处理就可以了，虽然内部实现方式是一样的，
但毕竟我们写起来方便许多，不是吗？当你在窗口类中的Style中设置了这些旗标的话，系统
会在控件需要绘制的时候先发送一个WM_MEASUREITEM消息给当此控件的父窗体（注意这里要
注意，这是由于标准Win32开发方式决定的，由于原来大多数的控件都是在接收到主窗体的W
M_CREATE消息时候创建的，一个窗口过程是当时程序员可以编写代码唯一的机会，所有的消
息都发送到主线程的消息循环中，所以控件的消息自然发到这里来了！可没有这么频繁使用
子类化或者超类化的方式）来确定控件的绘制范围，然后接着发送WM_DRAWITEM给此控件的父
窗体，而我们要做一个独立的组件，它怎么知道什么时候该绘制呢？代码本来应该写在窗体
中才对啊！好在delphi在库中意见考虑到这个需求，只要你的控件是在delphi中使用的，那
么TForm窗体会将所有接收的消息发送给相应的窗口过程处理，TWinControl.WMDrawItem相关
代码如下（经过处理）：}

procedure TWinControl.WMDrawItem(var Message: TWMDrawItem);
begin
if not DoControlMsg(Message.DrawItemStruct^.CtlID, Message) then iherited;
end;
而DoControlMsg的实现很简单：
function DoControlMsg(ControlHandle: HWnd; var Message): Boolean;
var Control: TWinControl;
begin
DoControlMsg := False;
Control := FindControl(ControlHandle);
if Control <> nil then
with TMessage(Message) do
begin
Result := Control.Perform(Msg + CN_BASE, WParam, LParam);
DoControlMsg := True;
end;
end;

{找到控件后将该消息的标识加上CN_BASE发送给相应窗口就是了（CN_DRAWITEM=CN_BASE+WM_
DRAWITEM），所以这里是第二个注意点：在组件中截获WM_DRAWITEM消息是没有效果的，事实
上根本没有这个消息传送到组件的窗口过程，而应该截获的是CN_DRAWITEM，WM_MEASUREITE
M的消息处理过程是一样的，组件中应该截取CN_MEASUREITEM消息！注意了这些我们就可以由
TButton来派生一个组件了，代码如下：}

TSundyButton = class(TButton)
private
FCanvas: TCanvas;
IsFocused: Boolean;
IsDown: boolean;
protected
procedure WMMOUSEDOWN(var message: TWMLButtonDown); message WM_LButtonDown;
procedure WMMOUSEUP(var message: TWMLButtonUp); message WM_LButtonUp; procedure CNDRAWITEM(var message: TWMDRAWITEM); message CN_DRAWITEM; procedure CNMEASUREITEM(var message: TWMMEASUREITEM); message CN_MEASUREITEM;
procedure CreateParams(var Params: TCreateParams); override;
procedure CMEnabledChanged(var Message: TMessage); message CM_ENABLEDCHANGED;
procedure CMFontChanged(var Message: TMessage); message CM_FONTCHANGED;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure SetButtonStyle(ADefault: Boolean); override;
procedure DrawItem(const DrawItemStruct: TDrawItemStruct);
end;

implementation

procedure TSundyButton.CNDRAWITEM(var message: TWMDRAWITEM);
begin
DrawItem(message.DrawItemStruct^);
end;

procedure TSundyButton.CNMEASUREITEM(var message: TWMMEASUREITEM);
begin
message.MeasureItemStruct^.itemWidth := Width;
message.MeasureItemStruct^.itemHeigh
t := Height;
end;

constructor TSundyButton.Create(AOwner: TComponent);
begin
inherited Create(AOwner);
ControlStyle := ControlStyle + [csReflector];
FCanvas := TCanvas.Create;
Width := 85;
Height := 30;
end;

procedure TSundyButton.CreateParams(var Params: TCreateParams);
begin
inherited CreateParams(Params);
with Params do
Style := Style or BS_OWNERDRAW;
end;

destructor TSundyButton.Destroy;
begin
FreeAndNil(FCanvas);
inherited Destroy;
end;

//你可以在下面的方法中按你喜欢的方式画出各种效果，这里只是简单的示例，没有什么
//炫目的效果^_^
procedure TSundyButton.DrawItem(const DrawItemStruct: TDrawItemStruct);
var Rec: TRect;
begin
FCanvas.Handle := DrawItemStruct.hDC;
Rec := ClientRect;
with FCanvas do
begin
Pen.Style := psSolid;
Brush := Parent.Brush;
RoundRect(Rec.Left, Rec.Top, Rec.Right, Rec.Bottom, 4, 4); Brush.Color := clBtnFace;
Pen.Color := clBlack;
SetBkMode(FCanvas.Handle, Transparent);
if IsDown then
begin
Rec.Left := Rec.Left + 3;
Rec.Top := Rec.Top + 1;
Font.Color := clBlack;
DrawText(Handle, PChar(Caption), Length(Caption), Rec, DT_CENTER or DT_VCENT
ER or DT_SINGLELINE);
end
else if not IsDown then
begin
Font.Color := clRed;
DrawText(Handle, PChar(Caption), Length(Caption), Rec, DT_CENTER or DT_VCENTER or DT_SINGLELINE);
end;
if Enabled then
begin
if IsFocused then
DrawFocusRect(Rec);
end;
end;
FCanvas.Handle := 0;
end;

procedure TSundyButton.CMEnabledChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;

procedure TSundyButton.CMFontChanged(var Message: TMessage);
begin
inherited;
Invalidate;
end;

//这个方法要改写，且不能调用inherited去调用上层方法
procedure TSundyButton.SetButtonStyle(ADefault: Boolean);
begin
if (ADefault <> IsFocused) then
begin
IsFocused := ADefault;
Invalidate;
end;
end;

procedure TSundyButton.WMMOUSEDOWN(var message: TWMLBUTTONDOWN);
begin
inherited;
IsDown := True;
Invalidate;
end;

procedure WMMOUSEUP(var message: TWMLButtonUp);
begin
inherited;
IsDown := False;
Invalidate;
end;

{这里还有一个小的问题不知道大家做按钮组件的时候发现没有，我开始做的按钮完全注意到
上述的两点，但效果出来后一点击按钮，按钮又恢复了原来的样子，为了找到这个原因，我
试着跟踪它，发现只是在开始的时候CN_DRAWITEM会发送到我的组件窗口，当按钮或者焦点后
就再也没有这个消息发送过来了，经过很久的寻找终于在TButton的CM_FOCUSCHANGED消息中
发现了原因： }

procedure TButton.CMFocusChanged(var Message: TCMFocusChanged);
begin
with Message do
if Sender is TButton then
FActive := Sender = Self
else
FActive := FDefault;
SetButtonStyle(FActive);
inherited;
end;
//而SetButtonStyle(FActive)在或者焦点的时候会执行SetButtonStyle(True);

procedure TButton.SetButtonStyle(ADefault: Boolean);
const BS_MASK = $000F;
var
Style: Word;
begin
if HandleAllocated then
begin
if ADefault then
Style := BS_DEFPUSHBUTTON
else
Style := BS_PUSHBUTTON;
if GetWindowLong(Handle, GWL_STYLE) and BS_MASK <> Style then
SendMessage(Handle, BM_SETSTYLE, Style, 1);
end;
end;
{当我的ADefault为True或者False的时候，Style就变成标准的按钮样式了，所以这个方法我
们一定要改写并且不能在组件中调用上层的方法！这里简单总结一下此类组件开发的3个注意
点： 1.自画消息是系统发送到父窗口的，所以不能在组件的窗口过程中去截获这些消息，如
果是使用delphi开发的话，你可以在组件中截获相应的CN_BASE+WM_XXXXX消息，因为父窗口
对此类消息一般不处理，只是改变一下然后交给组件本身来处理！ 2.你应该在CreateParam
s中设置好相应的属性，如：BS_OWNERDRAW，SS_OWNERDRAW等等（设置方式可以看源代码相应
部分）！ 3.应该注意delphi中的一些默认的处理是否会改变组件的行为，如果会的话，你应
该改写它或者通过其他方式避免它，如此例中按钮的SetButtonStyle方法无论在何时都会将
我们设置好的属性改变为默认属性，所以要改写它（幸好它是个虚方法，给了我们一次机会
^_^）}！

转载于:https://www.cnblogs.com/spiritofcloud/p/3980378.html