| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Всплывающая подсказка в ListBox [D7, XP]

AlexanderMS ©   (2006-05-05 17:17:00) 

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

---

AlexanderMS   (2006-05-08 16:24:00) [1]

Alarm ©   (08.05.06 07:34) [7]

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

---

Alarm   (2006-05-08 07:34:00) [2]

Можно реализовать так:
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-07 19:10:00) [3]

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

---

AlexanderMS   (2006-05-06 19:50:00) [4]

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

---

AlexanderMS   (2006-05-06 18:35:00) [5]

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

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

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

---

Amoeba   (2006-05-06 13:52:00) [6]

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

---

AlexanderMS   (2006-05-05 19:12:00) [7]

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


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

---

Leonid Troyanovsky   (2006-05-05 18:16:00) [8]

> AlexanderMS ©   (05.05.06 17:17)  

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


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

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

--
Regards, LVT.

---

Наверх