Главная страница
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.039 c
1-38894
Кен
2004-02-05 01:42
2004.02.13
Как фильтровать дерево ? По шаблону.


1-38826
scorpi
2004-02-02 08:20
2004.02.13
Значение 1E


14-38997
kaif
2004-01-27 03:26
2004.02.13
Фолио-WinСклад


3-38727
koks
2004-01-19 11:54
2004.02.13
Update с параметром - не пашет :((


1-38891
WebErr
2004-02-03 17:40
2004.02.13
Директива friend в Object Pascal !!!