Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
ВнизВсплывающая подсказка в 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 вся ветка
Форум: "Начинающим";
Текущий архив: 2006.05.28;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.012 c