Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.02.13;
Скачать: CL | DM;

Вниз

Hint in ListBox   Найти похожие ветки 

 
DDA ©   (2004-02-03 00:26) [0]

Подскажите как вывести Hint для тех строк в ListBox-e которые не уместились в ширину ListBox-а
Т.е надо вывести в Hint эту строчку.


 
gek ©   (2004-02-03 07:03) [1]

Надо обрабатывать сообщение CM_HINTSHOW


 
VAleksey ©   (2004-02-03 09:49) [2]

Попробуй так:

procedure TfmMain.chlbFoldersMouseMove(Sender: TObject; Shift: TShiftState;
X, Y: Integer);
var
Point:TPoint;
begin
With TListBox(Sender) do
begin
Point.X := X;
Point.Y := Y;
if ItemAtPos(Point,true) < 0 then Exit;
if Hint <> Items[ItemAtPos(Point,true)] then
begin
Application.CancelHint;
end;
if Canvas.TextWidth(Items[ItemAtPos(Point,true)]) > (Width - BmpFolder.Width - 40) then
begin
Hint := Items[ItemAtPos(Point,true)];
ShowHint := true;
end
else
begin
Hint := "";
ShowHint := false;
end;
end;
end;


 
Amoeba ©   (2004-02-03 19:39) [3]

http://www.delphikingdom.com/treasury/tiplists.htm


 
DDA ©   (2004-02-03 19:47) [4]


> VAleksey © (03.02.04 09:49) [2]

А что это такое:
TfmMain.chlbFoldersMouseMove
BmpFolder

Поставил код в ListBox1MouseMove
и убрал BmpFolder

Всё работает.
Спасибо.



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

Текущий архив: 2004.02.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.026 c
1-38842
CTAPbIi
2004-01-29 11:49
2004.02.13
Эмуляция раскрытия списка в DBGrid


3-38742
Polevi
2004-01-21 13:56
2004.02.13
Способ хранения дат


9-38661
Sacred
2003-07-31 20:54
2004.02.13
Угол обзора камеры


1-38781
Brut
2004-02-03 15:11
2004.02.13
Автоматическая прокрутка RichEdit


7-39119
agentru
2003-11-27 22:42
2004.02.13
Блокировка клавы???