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

发布网友发布时间：2023-07-13 07:36

共5个回答

热心网友时间：2024-11-29 21:38

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;

热心网友时间：2024-11-29 21:39

//本身这个 Hint就是鼠标悬停的功能，是有延时的，你这种要求感觉怪怪的
procere TForm1.Button1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Button1.ShowHint:=TRUE;
Button1.Hint:='显示说明';
end;

热心网友时间：2024-11-29 21:39

delphi按钮自带hint属性,输入内容即可.

热心网友时间：2024-11-29 21:40

不要用onlick时间，用keypresedown事件就可以了，代码不需改变，很简单的控件的事件不仅仅是onlick，有很多都很有用的

热心网友时间：2024-11-29 21:40

点击的时候不成了单击或双击事件了吗?