DELPHI 点击按扭显示HINT 应该怎么做？
如果是BUTTUN.SHOWHINT := TRUE 那只要鼠标停在上面就显示了，我是想要点击的时候才显示呀，应该怎么做？
DELPHI 点击按扭显示HINT 怎么做？
答案:5 悬赏:0 手机版
解决时间 2021-02-25 21:25
- 提问者网友：夢醒日落
- 2021-02-25 18:37
最佳答案
- 五星知识达人网友：酒醒三更
- 2021-02-25 19:46
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;
点击的时候显示，用一个label来控制吧。
下面是一段把label移到当前光标位置的代码。结合这事件用用跟hint差不多的效果。
var
P: TPoint;
begin
GetCursorPos(P);
Self.Label1.Left:=p.x-self.Left ;
Self.Label1.Top:=p.y-self.Top ;
end;
全部回答
- 1楼网友：底特律间谍
- 2021-02-25 23:21
//本身这个 Hint就是鼠标悬停的功能，是有延时的，你这种要求感觉怪怪的
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.ShowHint:=TRUE;
Button1.Hint:='显示说明';
end;
- 2楼网友：渊鱼
- 2021-02-25 22:50
delphi按钮自带hint属性,输入内容即可.
- 3楼网友：渊鱼
- 2021-02-25 22:38
可以啊，只要对你要显示的控件showhint true就好了啊，绝对可行的，估计是你设置了颜色之类的属性，让showhint看不见，你检查下
- 4楼网友：拾荒鲤
- 2021-02-25 21:06
不要用onlick时间，用keypresedown事件就可以了，代码不需改变，很简单的 控件的事件不仅仅是onlick，有很多都很有用的
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息
大家都在看
推荐资讯