TListBox

← →
saNat © (2004-07-27 15:48) [0]

Доброго времени суток
Подскажите пожалуйста, как сделать Hint только над выделенным пунктом компонента?

← →
Almaz © (2004-07-27 15:59) [1]

Используйте Application.OnShowHint. Был чем-то похожий вопрос, может быть это поможет разобраться как его надо использовать:
http://delphimaster.net/view/1-1090513591/

Удачи.

← →
ssk © (2004-07-27 16:01) [2]

procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
k: integer;
begin
with Sender as TListBox do
begin
k:=ItemAtPos(Point(x,y), True);
if k = ItemIndex then
begin
ShowHint:=True;
Hint := Items[k];
end
else ShowHint:=False;
end;
end;

← →
Кириешки © (2004-07-27 16:10) [3]

>ssk © (27.07.04 16:01) [2]

Hint только над выделенным пунктом компонента

ListBox1.hint := listbox1.items[listbox1.itemindex];

← →
ssk © (2004-07-27 16:12) [4]

>Кириешки © (27.07.04 16:10) [3]

и что неправильно? если курсор находится не над выделенным пунктом, то хинта и не будет.

← →
Кириешки © (2004-07-27 16:15) [5]

>ssk © (27.07.04 16:12) [4]

Извините, все правильно, просто я по другому так понял вопрос.

>Кириешки

ничего страшного :-)

Всем спасибо

TListBox Найти похожие ветки