当listview 宽度小,Item的内容比较长时,鼠标移到Item 上 ,会自动显示Item内的所有内容(Hint显示),怎么去掉这个功能。(100分)

  • 主题发起人 主题发起人 fanronghua
  • 开始时间 开始时间
F

fanronghua

Unregistered / Unconfirmed
GUEST, unregistred user!
当listview 宽度小,Item的内容比较长时,鼠标移到Item 上 ,会自动显示Item内的所有内容(Hint显示),怎么去掉这个功能。

showhint := false;
没有用。
 
用Application.ShowHint := False;试试
 
procedure TForm1.ListView1MouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
h : THintWindow;
r : TRect;
begin
with r do
begin
left := x;
top := y;
right := 0;
bottom := 0;
end;
h := THintWindow.Create( Self );
with h do
begin
ActivateHint( r, '' );
ReleaseHandle;
Free;
end;

end;
 
非常感谢
 

Similar threads

D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
2K
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
后退
顶部