Текущий архив: 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.086 c