Show Hint every Time the Mouse Moves
Posted on 2001-06-14
I have a Listbox with some entrys. Now I want that everytime the user moves the mouse over a new entry a hint pops up and displays the whole content of the item of the listbox. (Like in the windows explorer, when a Filename is too long. I want exactly this).
The code i have so far just changes the hint property of the Listbox, but the hint is only displayed once, when the user enters the Listbox with the mouse, but no more when he moves it. I have to go out with the mouse every time, then a new Hint is displayed.
This is the code I have so far:
procedure TForm1.lb2MouseMove(Sender: TObject; Shift: TShiftState; X,
with Sender as TListbox do begin
temp:=ItemAtPos(Point(X, Y), true);
if temp=-1 then begin
end else begin
There is a second problem in my project: I need to display a directory structure, best with a treeview and a listview like the windows explorer. The only solution i've found are the win3.1 Components (Filelistbox,...) Is there a better way to realize this?