DELPHI 点击按扭显示HINT 怎么做？

Posted 2023-03-30

DELPHI 点击按扭显示HINT 应该怎么做？
如果是BUTTUN.SHOWHINT := TRUE 那只要鼠标停在上面就显示了，我是想要点击的时候才显示呀，应该怎么做？

hint就是悬停的时候才有效。
点击的时候显示，用一个label来控制吧。
下面是一段把label移到当前光标位置的代码。结合这事件用用跟hint差不多的效果。
var
P: TPoint;
begin
GetCursorPos(P);
Self.Label1.Left:=p.x-self.Left ;
Self.Label1.Top:=p.y-self.Top ;

end; 参考技术A //本身这个 Hint就是鼠标悬停的功能，是有延时的，你这种要求感觉怪怪的
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.ShowHint:=TRUE;
Button1.Hint:='显示说明';
end; 参考技术B delphi按钮自带hint属性,输入内容即可. 参考技术C 不要用onlick时间，用keypresedown事件就可以了，代码不需改变，很简单的 控件的事件不仅仅是onlick，有很多都很有用的 参考技术D 点击的时候不成了单击或双击事件了吗?

delphi的 ToolBar1控件增加个按扭，为啥在CAPTION属性上写字不显示呢》

delphi的 ToolBar1控件增加个按扭，为什么在CAPTION属性上写字不显示呢》

因为TOOLBAR它是一个快捷工具条，所以你不可以在上面打汉字，一般它上面是一张图片，你可以使用imangelist这个控件，然后双击它，点击ADD，把你要选的图案加进来，然后把TOOLBAR的imange属性设为imangelist1，则你的TOOLBAR就有图案了，虽然你要让它当鼠标放到TOOLBAR上时，可以显示汉字，则在TOOLBAR的Hint里打上汉字，然后把ShowHint设为TRUE，这样当你运行时，你把鼠标放到TOOLBAR上时，它就会出现你刚才打的汉字。 参考技术A 如果要在按钮上显示汉字的话,就不要使用快捷键中的 New Button选项来产生Toolbar的button按钮.
你可以在Additional面版中直接拖SpeedButton,或者其它的button控件到你的Toolbar控件上,这样产生的button可以显示汉字,speedbutton还可以加载图片. 参考技术B ToolBar1有个属性showcaption你把它选上就可以了