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;