Главная страница
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
3-38728
eugie
2004-01-21 16:46
2004.02.13
Гранты, TIBDataSet и его Prepare


1-38913
h0use
2004-02-04 14:08
2004.02.13
Передача параметров через SendMessage


14-39025
Ru
2004-01-19 17:03
2004.02.13
Анекдот


3-38698
wolf01
2004-01-22 16:40
2004.02.13
Cоединение DCOM


1-38853
kex86
2004-02-02 12:51
2004.02.13
Почему не проходит блок