DELPHI 点击按扭显示HINT 怎么做？
DELPHI点击按扭显示HINT应该怎么做？如果是BUTTUN.SHOWHINT:=TRUE那只要鼠标停在上面就显示了，我是想要点击的时候才显示呀，应该怎么做？...
DELPHI 点击按扭显示HINT 应该怎么做？
如果是BUTTUN.SHOWHINT := TRUE 那只要鼠标停在上面就显示了，我是想要点击的时候才显示呀，应该怎么做？ 展开
如果是BUTTUN.SHOWHINT := TRUE 那只要鼠标停在上面就显示了，我是想要点击的时候才显示呀，应该怎么做？ 展开
5个回答
展开全部
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
威孚半导体技术
2024-08-19 广告
威孚（苏州）半导体技术有限公司是一家专注生产、研发、销售晶圆传输设备整机模块（EFEM/SORTER）及核心零部件的高科技半导体公司。公司核心团队均拥有多年半导体行业从业经验，其中技术团队成员博士、硕士学历占比80%以上，依托丰富的软件底层...
点击进入详情页
本回答由威孚半导体技术提供
展开全部
//本身这个 Hint就是鼠标悬停的功能，是有延时的，你这种要求感觉怪怪的
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.ShowHint:=TRUE;
Button1.Hint:='显示说明';
end;
procedure TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.ShowHint:=TRUE;
Button1.Hint:='显示说明';
end;
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
delphi按钮自带hint属性,输入内容即可.
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
不要用onlick时间，用keypresedown事件就可以了，代码不需改变，很简单的 控件的事件不仅仅是onlick，有很多都很有用的
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
更多回答（3）
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
