Как сделать Hint для каждой строки в ListBox ?

← →
NTdim © (2002-03-21 12:22) [0]

Как сделать Hint для каждой строки в ListBox ? [D5]
Понятно что нужно использовать OnMouseMove
но как взять номер итемса ?

← →
MBo © (2002-03-21 12:25) [1]

function ItemAtPos(Pos: TPoint; Existing: Boolean): Integer;

← →
Song © (2002-03-21 12:57) [2]

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer); Var Point:TPoint; t:Integer; begin Point.X:=X; Point.Y:=Y; With ListBox1 Do Begin t:=ItemAtPos(Point,True); IF t>-1 then Begin // Если размер надписи превышает длину контрола, загружаем его значение в хинт IF Canvas.TextWidth(Items[t])>Width then Hint:=Items[t] else Application.CancelHint; End Else Application.CancelHint; End; end;

← →
NTdim © (2002-03-21 13:24) [3]

Огромное спасибо :))

← →
lipskiy © (2002-03-21 13:26) [4]

А как делаются хинты, которые высвечиваются в точности по координатам исходного текста? В приведенном примере хинт будет вылезать под мышкой, а надо, чтобы текст хинта попиксельно совпал по позиции с текстом контрола и имел бы тот же Font.
И еще - как вызвать хинт снова вручную? Ведь мышь с контрола не ушла, изменения свойства Hint появление самого хинта не вызовет, его надо включить.

← →
Song © (2002-03-21 13:30) [5]

Displays a hint window for the control at a specified position.

procedure ActivateHint(CursorPos: TPoint);

Description

ActivateHint locates the control or menu item at the position specified by CursorPos, where CursorPos represents a screen coordinates in pixels. After locating the control, ActivateHint displays the control’s Hint in a hint window.

← →
Andrey007 (2002-03-21 13:31) [6]

Определять номер строки можно ещё так:

NumStr:=Trunc(Y/ListBox1.Canvas.TextExtent(ListBox1.Items[0]).cy);
if ListBox1.TopIndex>0 then NumStr:=NumStr+ListBox1.TopIndex;
if (NumStr>ListBox1.Items.Count-1) or
(ListBox1.Canvas.TextExtent(ListBox1.Items[NumStr]).cx=0) then Exit; // курсор вне текста

← →
Song © (2002-03-21 13:33) [7]

:)))

В Москву можно и через Камчатку ездить

← →
lipskiy © (2002-03-21 13:35) [8]

2 Song
Угу, понятно. А как узнать эти точные координаты итемса - чтоб текст совпал? Там ведь еще всякие поля, отступы...

← →
lipskiy © (2002-03-21 13:35) [9]

И как сменить шрифт хинту?

← →
Andrey007 (2002-03-21 13:40) [10]

>А как узнать эти точные координаты итемса - чтоб текст совпал? Там ведь еще всякие поля, отступы...

ListBox1.ItemRect(i)

← →
Song © (2002-03-21 14:01) [11]

FAQ... и почему интересно люди его не любят...

http://delphi.mastak.ru/cgi-bin/faq.pl?look=1&id=988623788&n=16

← →
lipskiy © (2002-03-21 17:38) [12]

2 Song
Спасибо за ссылку.
Почему не любят - могу объяснить, почему я не люблю.
По трем причинам.

Первая - хрен найдешь быстро то, что надо. Бывает, что и ключевых слов просто не придумаешь для поиска. Да и разложены вопросы отнюдь не идеально. Да и заголовки вопросов тоже имеют "несправочный" вид. Маленький список вопросов на одом листе и большие промежутки между ними - неприятно читать. В общем, тяжело искать - это раз.

Вторая - нет интерактива. Далеко не все примеры из FAQ работают безусловно. Часто что-то неоговорено. А часто просто не совсем то, что надо.

Третья - я честно хожу в FAQ, когда вопрос возникает впервые. Не найдя ответа - иду в форум, ну и когда начинается диалог, то проще и надежнее спросить тут же новые вопросы в том же направлении.

А вообще это уже треп пошел, модератор вырежет - и правильно сделает. Прошу прощения за мусор.

← →
Andrey007 (2002-03-22 10:43) [13]

У меня почему-то это не работает, то есть подсказка не выскакивает:

procedure TPCBPInputForm.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);
var NumStr: Integer;
Pnt: TPoint;
begin
Pnt.x:=X; Pnt.y:=Y;
NumStr:=ListBox1.ItemAtPos(Pnt,True);
if NumStr>-1 then
begin // Если размер надписи превышает длину контрола, загружаем его значение в хинт
if Canvas.TextWidth(ListBox1.Items[NumStr])>ListBox1.Width then
begin
Application.Hint:=ListBox1.Items[NumStr];
Application.ActivateHint(Pnt)
end
else Application.CancelHint;
[...]
end
end;

При этом ListBox1.ShowHint=True.

Что я сделал неправильно?

ActivateHint не нужен

И хинт надо устанавливать не для класса TApplication, а для TListBox

← →
Andrey007 (2002-03-22 14:25) [16]

А как сделать так, чтобы этот hint рисовался полностью перекрывая надпись и продолжался после ListBox"a на форме? У меня ListBox лежит на TTabSheet, причём ListBox.Align:=alClient и когда я рисовал DrawText(ListBox.Canvas.Handle,Pchar(ListBox.Items[NumStr]),-1,r,DT_LEFT), то hint не выходил за пределы ListBox"a.

По-моему он ограничен клиентской областью. Это ограничение системы.

По моему задача сводится просто к тому, чтобы сделать такой же хинт, как, например, в TreeView - он там прекрасно работает и вылазит за пределы окна. М.б. можно это повторить?

Как сделать Hint для каждой строки в ListBox ? Найти похожие ветки