delphi中为自定控件绘制windows按钮

最新推荐文章于 2022-04-10 22:15:20 发布

ljq900

最新推荐文章于 2022-04-10 22:15:20 发布

阅读量1.4k

点赞数

分类专栏：编程语言文章标签： delphi windows integer div 工具

本文链接：https://blog.csdn.net/ljq900/article/details/1616598

版权

该博客介绍了如何在Delphi中创建自定义控件，同时保持Windows样式的按钮效果。通过`defaultdraw`过程展示了如何绘制按钮，包括设置字体、颜色、边框样式，并在按钮上显示图像和文本。在不同状态下，如鼠标悬停、按下时，使用ThemeServices调整按钮的视觉效果。

摘要由CSDN通过智能技术生成

若要自定工具拦，但也要保留windows样式的按钮时

下面给出一种实现

procedure TmyButton.defaultdraw;
var arect,R:Trect;
    wpos,hpos:integer;
    Details: TThemedElementDetails;
begin
hpos:=0;
arect:=self.ClientRect;
canvas.Font:=font;
canvas.Brush.Color:=$CCFFFF;
if assigned(fimagelist) then
begin
    if (fimagelist.Count>0) or (fimage>=0) then
    begin
      wpos:=(width-imagelist.Width) div 2;
      if fhot and ( not (csDesigning in ComponentState) ) then
      begin
        R:=rect(wpos-8,0,wpos+fimagelist.width+8,fimagelist.Height+16);
        if ThemeServices.ThemesEnabled then
        begin
          if fdown then
          begin
            Details := ThemeServices.GetElementDetails(themes.ttbButtonPressed);
          end
          else
            Details :=