Текущий архив: 2004.08.08;
Скачать: CL | DM;
Вниз
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]
Извините, все правильно, просто я по другому так понял вопрос.
← →
ssk © (2004-07-27 16:18) [6]>Кириешки
ничего страшного :-)
← →
saNat © (2004-07-27 16:57) [7]Всем спасибо
Страницы: 1 вся ветка
Текущий архив: 2004.08.08;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.047 c
