装扮工具提示条

Delphi 专栏收录该内容
1 篇文章 0 订阅

 

  Delphi技巧之

装扮工具提示条

什么是工具提示条?在Windows程序中,当鼠标移动到工具条相应的按钮上时,会弹出一个小窗口来说明该按钮的作用,这个小窗口就叫做工具提示条。一般情况下它的背景色为淡黄色,字体色为黑色。面对这样千篇一律的面孔不知你是不是有些厌烦,是否想过给它化化妆,使其改头换面呢?下面我们就以Delphi为工具,对它动些小手术。

Delphi中,我们可以设置控件的HintShowHint属性来显示工具提示条。当然,这并不是我们所希望的效果。幸好DelphiApplication对象中给我们提供了HintColor属性,用它可以设置工具提示条的背景颜色。在程序主窗体的创建事件中写入Application.HintColor:=clRed,然后运行一下,怎么样?效果不错吧,背景变成红色了。接下来的问题是,我们如何来改变显示文字的颜色。(嗯,让我好好想想)

Delphi中有一个THintWindow类,看名字就知道它是干什么的了。不错,Delphi就是通过它来实现工具提示条的。在它的创建方法(Create)中只有四条语句:

Constructor THintWindow.Create(AOwner: TComponent);

Begin

  Inherited Create (AOwner);

  Color := $80FFFF;

  Canvas.Font := Screen.HintFont;

  Canvas.Brush.Style := bsClear;

End;

它首先重载了父类的创建方法,然后设置了背景颜色、字体和画刷样式。从这里可以设想一下,如果我们创建一个THintWindow的派生类,并重载它的创建方法,然后在此方法中重新定义字体,不就实现了我们所希望的效果吗?那就让我们行动起来吧。

首先新建一应用程序,在Form1窗体上添加一个用于测试的按钮Button1,设置ShowHint属性为TrueHint属性为“这是一个按钮”,然后在代码页的Implementation部分前面声明MyHint类:

Type

  MyHint=class (THintWindow)

    Constructor Create (AOwner: TComponent); override;

  End;

该类只有一个方法,用override关键字来表示重载了父类(THintWindow)的创建方法。接着在Implementation部分写入此方法的代码:

Constructor MyHint.Create(AOwner: TComponent);

Begin

  inherited Create(AOwner);    //重载父类方法

  with Canvas do begin    //设置字体

    Font.Name := '楷体_GB2312';

    Font.Color :=clYellow;

    Font.Size :=20;

    Brush.Style := bsClear;

  End;

End;

在此过程中我们重新定义了字体的名称、颜色及大小,现在就可以使用这个新类了。那么如何使用呢?这里还要说明一点:在Delphi中有一个隐含的变量HintWindowClass,它的作用就是指定在程序运行时显示的工具提示条所使用的类,其声明如下:

var HintWindowClass: THintWindowClass = THintWindow;

在程序中我们可以动态改变此变量,如在主窗体的创建事件中写入:HintWindowClass:=MyHint;这样就可以让它使用我们新创建的类了。好了,现在来运行一下程序,看看效果如何?工具提示条的字体变成了楷体,尺寸也变大了,颜色……,怎么颜色没有改变呢?新的问题出现了,还是再看看THintWindow的代码吧。

问题就出在THintWindowPaint方法上,其代码如下:

Procedure THintWindow.Paint;

var

  R: TRect;

Begin

  R := ClientRect;

  Inc (R.Left, 2);

  Inc (R.Top, 2);

  Canvas.Font.Color := clInfoText;    //请注意这一句

  DrawText(Canvas.Handle, PChar(Caption), -1, R, DT_LEFT or DT_NOPREFIX or DT_WORDBREAK or DrawTextBiDiModeFlagsReadingOnly);

End;

原来THintWindow在它的Paint方法中又重新改变了字体颜色。没办法,只好重写Paint方法了。在MyHint类中再声明一个重载方法:Procedure Paint; Override;然后将THintWindowPaint方法的代码照搬过来,再将Canvas.Font.Color := clInfoText;这一句删除掉。至此就大功告成了,再运行一下程序看看,这下一点问题都没有了。

也许你会说:“其实我们也不用重载THintWindowCreate方法,只需重载Paint方法即可,然后在其中设置背景及字体,这样会省事得多啦。”当然,这样也行得通,不过你会发现有一点小小的遗憾,是什么?自己试试吧。(什么?没有?!当我没说!)

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
<p style="color:#666666;"> <span style="font-size:14px;">本门课程重实战,将基础知识拆解到项目里,让你在项目情境里学知识。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">这样的学习方式能让你保持兴趣、充满动力,时刻知道学的东西能用在哪、能怎么用。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">平时不明白的知识点,放在项目里去理解就恍然大悟了。</span> </p> <p style="color:#666666;"> <span></span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>一、融汇贯通</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本视频采用了前后端分离的开发模式,前端使用Vue.js+Element UI实现了Web页面的呈现,后端使用Python 的Django框架实现了数据访问的接口,前端通过Axios访问后端接口获得数据。在学习完本章节后,真正理解前后端的各自承担的工作。</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>二、贴近实战</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">本系列课程为练手项目实战:学生管理系统v4.0的开发,项目包含了如下几个内容:项目的总体介绍、基本功能的演示、Vuejs的初始化、Element UI的使用、在Django中实现针对数据的增删改查的接口、在Vuejs中实现前端增删改查的调用、实现文件的上传、实现表格的分页、实现导出数据到Excel、实现通过Excel导入数据、实现针对表格的批量化操作等等,所有的功能都通过演示完成、贴近了实战</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>三、课程亮点</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">在本案例中,最大的亮点在于前后端做了分离,真正理解前后端的各自承担的工作。前端如何和后端交互</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="color:#FF0000;font-size:14px;"><strong>适合人群:</strong></span> </p> <p style="color:#666666;"> <span style="font-size:14px;">1、有Python语言基础、web前端基础,想要深入学习Python Web框架的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">2、有Django基础,但是想学习企业级项目实战的朋友;</span> </p> <p style="color:#666666;"> <span style="font-size:14px;">3、有MySQL数据库基础的朋友</span> </p> <p style="color:#666666;"> <span style="font-size:14px;"> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><img alt="" src="https://img-bss.csdnimg.cn/202009070752197496.png" /><br /> </span> </p> <p style="color:#666666;"> <span style="font-size:14px;"><br /> </span> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值