procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Index: Integer;
APoint: TPoint;
begin
APoint.X := X;
APoint.Y := Y;
Index := ListBox1.ItemAtPos(APoint, True);
if ListBox1.Tag <> Index then begin
ListBox1.Tag := Index;
if Index = -1 then
ListBox1.Hint := ''
else
ListBox1.Hint := ListBox1.Items[Index];
end;
end;
Отдельный hint для, каждой строки TListBox
Вот тут на днях вопрос возник как это можно сделать.
Почитал FAQ ничего интересного неношол.
В нете тоже ничего не нашол(может плохо искал?)
Заранее спасибо за ответ!
Высвечивает в качестве подсказки item, над которой остановилась мышка. Tag listbox-a нужно установить в -2.
Цитата:
Originally posted by rostyslav
Высвечивает в качестве подсказки item, над которой остановилась мышка. Tag listbox-a нужно установить в -2.
Высвечивает в качестве подсказки item, над которой остановилась мышка. Tag listbox-a нужно установить в -2.
Код:
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
var
Index: Integer;
APoint: TPoint;
begin
APoint.X := X;
APoint.Y := Y;
Index := ListBox1.ItemAtPos(APoint, True);
if ListBox1.Tag <> Index then begin
ListBox1.Tag := Index;
if Index = -1 then
ListBox1.Hint := ''
else
ListBox1.Hint := ListBox1.Items[Index];
end;
end;
Y: Integer);
var
Index: Integer;
APoint: TPoint;
begin
APoint.X := X;
APoint.Y := Y;
Index := ListBox1.ItemAtPos(APoint, True);
if ListBox1.Tag <> Index then begin
ListBox1.Tag := Index;
if Index = -1 then
ListBox1.Hint := ''
else
ListBox1.Hint := ListBox1.Items[Index];
end;
end;
Большое Спасибо:!!!: