Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.021 c