Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TListBox [D6, Win2k]

saNat © (2004-07-27 15:48:00)
Доброго времени суток
Подскажите пожалуйста, как сделать Hint только над выделенным пунктом компонента?

saNat (2004-07-27 16:57:00) [1]
Всем спасибо

ssk (2004-07-27 16:18:00) [2]
>Кириешки

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

Кириешки (2004-07-27 16:15:00) [3]
>ssk © (27.07.04 16:12) [4]

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

ssk (2004-07-27 16:12:00) [4]
>Кириешки © (27.07.04 16:10) [3]

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

Кириешки (2004-07-27 16:10:00) [5]
>ssk © (27.07.04 16:01) [2]

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

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

ssk (2004-07-27 16:01:00) [6]
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;

Almaz (2004-07-27 15:59:00) [7]
Используйте Application.OnShowHint. Был чем-то похожий вопрос, может быть это поможет разобраться как его надо использовать:
http://www.delphimaster.ru/cgi-bin/forum.pl?id=1090513591&n=0

Удачи.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »