Всплывающая подсказка в ListBox

← →
AlexanderMS © (2006-05-05 17:17) [0]

Подскажите, пожалуйста, как сделать, чтобы при наведении мышью на длинную строку ListBox (которая не помещается полностью) она целиком отображалась в сплывающем окошке, как это в Object Inspector"е в Delphi или же в самой Windows?

← →
Leonid Troyanovsky © (2006-05-05 18:16) [1]

> AlexanderMS © (05.05.06 17:17)

> Подскажите, пожалуйста, как сделать, чтобы при наведении
> мышью на длинную строку ListBox (которая не помещается полностью)
> она целиком отображалась в сплывающем

http://groups.google.com/group/fido7.ru.delphi.chainik/msg/c775cf37abc7ee56

лучше, всю ветку.

--
Regards, LVT.

← →
AlexanderMS © (2006-05-05 19:12) [2]

> Leonid Troyanovsky © (05.05.06 18:16) [1]

Огромное спасибо за ссылку.

← →
Amoeba © (2006-05-06 13:52) [3]

Здесь все описано и есть готовый код:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=762

← →
AlexanderMS © (2006-05-06 18:35) [4]

> Amoeba © (06.05.06 13:52) [3]

Спасибо, но ссылка на нужный файл не работает.

Видите ли, мне нужно не совсем это. Я бы хотел, чтобы было так, как в Object Inspector: если строка не помещается, то прямо в этой строке (не у курсора мыши) всплывает рамочка, которая уже вылезает за рамку объекта и поясняет содержимое строки.

← →
AlexanderMS © (2006-05-06 19:50) [5]

Sorry. Слово - не воробей.
>
Видите ли, мне нужно не совсем это. Я бы хотел, чтобы было так, как в Object Inspector: если строка не помещается, то прямо в этой строке (не у курсора мыши) всплывает подсказка, которая уже вылезает за рамку объекта и поясняет содержимое строки.

Я так понял, что мой вопрос забыт, а как его решить, я так и не узнал.

Можно реализовать так:
procedure ListBoxMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); Var idx: LongInt; const oldidx: Longint = -1; begin with Sender as TListBox do begin idx:= ItemAtPos(Point(x,y),True); if (idx < 0) or (idx = oldidx) then Exit; Application.ProcessMessages; Application.CancelHint; oldidx := idx; Hint:=Items[idx]; ShowHint:= True; end; end;

Alarm © (08.05.06 07:34) [7]

Так и реализовал, но Hint выводится у указателя мышки, а нужно, чтобы прямо в той строчке, независимо, где сейчас курсор мыши (см. выше).

Всплывающая подсказка в ListBox Найти похожие ветки