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

Всплывающая подсказка в ListBox   Найти похожие ветки 

← →
AlexanderMS ©   (2006-05-05 17:17) [0]

Подскажите, пожалуйста, как сделать, чтобы при наведении мышью на длинную строку ListBox (которая не помещается полностью) она  целиком отображалась в сплывающем окошке, как это в Object Inspector"е в Delphi или же в самой Windows?

---

← →
Leonid Troyanovsky ©   (2006-05-05 18:16) [1]

> AlexanderMS ©   (05.05.06 17:17)  

> Подскажите, пожалуйста, как сделать, чтобы при наведении
> мышью на длинную строку ListBox (которая не помещается полностью)
> она  целиком отображалась в сплывающем


http://groups.google.com/group/fido7.ru.delphi.chainik/msg/c775cf37abc7ee56

лучше, всю ветку.

--
Regards, LVT.

---

← →
AlexanderMS ©   (2006-05-05 19:12) [2]

> Leonid Troyanovsky ©   (05.05.06 18:16) [1]


Огромное спасибо за ссылку.

---

← →
Amoeba ©   (2006-05-06 13:52) [3]

Здесь все описано и есть готовый код:
http://www.delphikingdom.com/asp/viewitem.asp?catalogid=762

---

← →
AlexanderMS ©   (2006-05-06 18:35) [4]

> Amoeba ©   (06.05.06 13:52) [3]

Спасибо, но ссылка на нужный файл не работает.

Видите ли, мне нужно не совсем это. Я бы хотел, чтобы было так, как в Object Inspector: если строка не помещается, то прямо в этой строке (не у курсора мыши) всплывает рамочка, которая уже вылезает за рамку объекта и поясняет содержимое строки.

---

← →
AlexanderMS ©   (2006-05-06 19:50) [5]

Sorry. Слово - не воробей.
>
Видите ли, мне нужно не совсем это. Я бы хотел, чтобы было так, как в Object Inspector: если строка не помещается, то прямо в этой строке (не у курсора мыши) всплывает подсказка, которая уже вылезает за рамку объекта и поясняет содержимое строки.

---

← →
AlexanderMS ©   (2006-05-07 19:10) [6]

Я так понял, что мой вопрос забыт, а как его решить, я так и не узнал.

---

← →
Alarm ©   (2006-05-08 07:34) [7]

Можно реализовать так:
procedure ListBoxMouseMove(Sender: TObject;  Shift: TShiftState; X, Y: Integer);
Var idx: LongInt;
const oldidx: Longint = -1;
begin
with Sender as TListBox do
 begin
  idx:= ItemAtPos(Point(x,y),True);
  if (idx < 0) or (idx = oldidx) then  Exit;
  Application.ProcessMessages;
  Application.CancelHint;
  oldidx  :=  idx;
  Hint:=Items[idx];
  ShowHint:= True;
 end;
end;

---

← →
AlexanderMS ©   (2006-05-08 16:24) [8]

Alarm ©   (08.05.06 07:34) [7]

Так и реализовал, но Hint выводится у указателя мышки, а нужно, чтобы прямо в той строчке, независимо, где сейчас курсор мыши (см. выше).

---

Страницы: 1 вся ветка

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



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