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

在Win32标准控件库中(comctl32.dll)的控件绝大部分的控件都支持自画(OwnerDraw)功能的设置，这里以按钮为例子说说此类控件在delphi中的编写方式以及应该注意的问题！由于标准的按钮都有一套规定的外观标准（由windows的comctl32.dll中的代码绘制），为了给用户一个自己绘制控件的机会，多数的控件都支持在创建的时候设置一个标志来告诉系统这个控件需要自己绘制，例如按钮中有：BS_OWNERDRAW，菜单的有：MF_OWNERDRAW等等(还有诸如：ComboBox,ListBox都有这方面的特性)，在delphi中设置这个标志不需要按Win32的方式那样在窗口类中定义，只要在CreateParams方法中处理就可以了，虽然内部实现方式是一样的，但毕竟我们写起来方便许多，不是吗？当你在窗口类中的Style中设置了这些旗标的话，系统会在控件需要绘制的时候先发送一个WM_MEASUREITEM消息给当此控件的父窗体（注意这里要注意，这是由于标准Win32开发方式决定的，由于原来大多数的控件都是在接收到主窗体的WM_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_MEASUREITEM的消息处理过程是一样的，组件中应该截取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^.itemHeight := 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_VCENTER 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.你应该在CreateParams中设置好相应的属性，如：BS_OWNERDRAW，SS_OWNERDRAW等等（设置方式可以看源代码相应部分）！ 3.应该注意delphi中的一些默认的处理是否会改变组件的行为，如果会的话，你应该改写它或者通过其他方式避免它，如此例中按钮的SetButtonStyle方法无论在何时都会将我们设置好的属性改变为默认属性，所以要改写它（幸好它是个虚方法，给了我们一次机会^_^）！

本文地址：http://com.8s8s.com/it/it4223.htm