Habe ich auch schon probiert. Ich kann ja sogar meinen eigenen Hint anzeigen,
aber dann sind zwei Hints gleichzeitig da! Mein programmierter Hint und der
automatische Pseudo-Hint des SubItems im ListView. Meinen Hint habe ich folgendermaßen
programmiert:
Code:
procedure TF_TreeLookUp.LV_ChildrenNodesMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
var
LI_New: TListItem;
begin (* LV_ChildrenNodesMouseMove *)
with LV_ChildrenNodes do
begin
LI_New := GetItemAt(X, Y);
ShowHint := True;
Hint := LI_New.SubItems[0];
end; // with
if (LI_New <> LI_Old) then
begin
Application.CancelHint; // wichtig !!
LI_Old := LI_New;
end; // if
end; (* LV_ChildrenNodesMouseMove *)
wobei LV_ChildrenNodes der ListView und LI_Old als TListItem definiert ist.