Application.Hint

← →
psa247 © (2005-11-25 10:33) [0]

1) Есть ListView с элементами
2) Как выводить Hint в позиции (X,Y), и при каждом изменении (X,Y) обновлять Hint для каждого элемента
3) Как сделать "умный" Hint. Т.е. если он вылезает за границы экрана, допустим вниз, то поднять его на необходимую величину вверх.

В 2) делал View.GetItemAt(X,Y); и Application.ActivateHint(PosHint); PosHint - TPoint. Когда работает, когда нет.

P.S. С чем едят Application.HintMouseMessage ?

← →
SergGG © (2005-11-25 10:43) [1]

> 2) Как выводить Hint в позиции (X,Y), и при каждом изменении
> (X,Y) обновлять Hint для каждого элемента

есть другой способ, если я правильно понял:

procedure TForm1.ListView1SelectItem(Sender: TObject; Item: TListItem; Selected: Boolean); begin Application.CancelHint; ListView1.Hint:=item.Caption; end;

← →
SergGG © (2005-11-25 10:46) [2]

но при этом ListView1.HotTrack:= True

> SergGG ©

Элемент м.б. не выделен, но находиться под курсором мыши.
Надо сделать Hint, такой же как у TotalCmd, к примеру, только не вылезающий за границы экрана

Application.Hint Найти похожие ветки