speeding up the hint display
Posted on 2000-04-19
In a listbox, I wanted to code a hint on mousemove.
I coded this :
procedure TFMagicWinner.ListBox2MouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
p : TPoint;
itemnum : integer;
p.x := x;
p.y := y;
itemnum := listbox2.Itematpos(p, true);
if itemnum > -1 then
ListBox2.showhint := false;
listbox2oldpos := itemnum;
ListBox2.hint := ListBox2.Items[ItemNum];
ListBox2.showhint := true;
it works fine when I enter on the control, but when I move the mouse over it, the hint is not redisplayed.
The problem does not come from the mousemove event which is triggered correctly but from the fact that I cannot display the hint when I want.
I am sure somebody has a simple solution for that