动态生成有多个SpeedButton的窗体使用VclSkin退出时报错的解决办法

iteye_6233

于 2012-07-16 15:38:00 发布

阅读量122

点赞数

本文介绍了在WinSubClass单元文件中实现TSkinSpeedButton自定义绘制的过程。通过覆盖PaintControl方法，利用TAcGraphicControl进行图形绘制。此方法适用于需要对按钮外观进行定制化的应用程序。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

在WinSubClass单元文件搜索以下过程替换就可以,注意红色代码部分为修改部分:

procedure TSkinSpeedButton.PaintControl(adc:HDC=0);
var
rc:TRect;
C : TControlCanvas;
begin
rc:=gcontrol.ClientRect;
OffsetRect( rc, -rc.left, -rc.top );
if gcontrol is TAcGraphicControl then
    if TAcGraphicControl(gcontrol).Canvas.Handle<>0 then
    begin
      TAcGraphicControl(gcontrol).Canvas.Lock;
      try
        DrawSpeedbtn(TAcGraphicControl(gcontrol).Canvas,rc);
      finally
        TAcGraphicControl(gcontrol).Canvas.Unlock;
     end;
   end;
end;