Código Delphi [-] procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ListBox1.Hint := ListBox1.Items[(Y - 1) div ListBox1.ItemHeight]; Application.ActivateHint(Mouse.CursorPos); end;
procedure TForm1.ListBox1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer); begin ListBox1.Hint := ListBox1.Items[(Y - 1) div ListBox1.ItemHeight]; Application.ActivateHint(Mouse.CursorPos); end;