Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Prism
by Taladan,
17. Jul 2005
Hab den Fehler gefunden :-)
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;
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Prism
by Taladan,
17. Jul 2005
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.
procedure TRegelDialog.ListBox1_MouseMove(sender: System.Object; e: System.Windows.Forms.MouseEventArgs);
var p : integer;
begin
...