Текущий архив: 2005.12.18;
Скачать: CL | DM;
Вниз
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
← →
psa247 © (2005-11-25 11:06) [3]
> SergGG ©
Элемент м.б. не выделен, но находиться под курсором мыши.
Надо сделать Hint, такой же как у TotalCmd, к примеру, только не вылезающий за границы экрана
Страницы: 1 вся ветка
Текущий архив: 2005.12.18;
Скачать: CL | DM;
Память: 0.44 MB
Время: 0.012 c
