Item in Listbox per MouseMove auswählen

[Taladan]

Ich möchte gern ein Item per Mousemove selectieren. Doch erhalte ich immer als index -1. kann mir jemad sagen wo mein fehler liegt?

in dieser procedure habe ich das selectet erst einmal mit einen textbox1.text ausgetauscht, damit keine Fehlermeldung kommt.

Delphi-Quellcode:

procedure TRegelDialog.ListBox1_MouseMove(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
var p : integer;
begin
  p := listbox1.IndexFromPoint(control.MousePosition);
  if p <> listbox1.NoMatches then begin
    textbox1.Text := p.ToString; 
  end;
end;

[Taladan]

Hab den Fehler gefunden :-)

Delphi-Quellcode:

procedure TRegelDialog.ListBox1_MouseMove(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
var p : integer;
begin
  p := listbox1.IndexFromPoint(e.X, e.Y);
  if p <> listbox1.NoMatches then begin
    Listbox1.SelectedIndex := p;
  end;
end;