Potlačení tooltipů v TreeView
Postup:
Od verze komponenty 4.70 zobrazuje TreeView tooltip pro položky,
které nejsou v okně zobrazeny kompletně. Tuto vlastnost lze ale pomocí
volání API vypnout:
Private Declare Function
SetWindowLong Lib "user32" Alias _
"SetWindowLongA" (ByVal hwnd As Long, ByVal
nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function GetWindowLong Lib "user32" Alias _
"GetWindowLongA" (ByVal hwnd As Long, ByVal
nIndex As Long) As Long
Const TVS_NOTOOLTIPS = &H80
Const GWL_STYLE = (-16)
Použití:
'Vypnutí tooltipu
SetWindowLong TreeView1.hwnd, GWL_STYLE, GetWindowLong(TreeView1.hwnd, _
GWL_STYLE) Or TVS_NOTOOLTIPS
'Zapnutí tooltipu
SetWindowLong TreeView1.hwnd, GWL_STYLE, GetWindowLong(TreeView1.hwnd, _
GWL_STYLE) And (Not TVS_NOTOOLTIPS)