Itemindex bekommt den Wert des Items über dem der Mauszeiger steht
Delphi-Quellcode:
procedure TForm1.ListBox1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Listbox1.ItemIndex := Listbox1.ItemAtPos(Point(X,Y),true);
end;
aus der
Online Hilfe :
Zitat:
Die Methode ItemAtPos gibt den Index des Eintrags zurück, der durch die Koordinaten eines Punktes auf dem Steuerelement bezeichnet wird.
mit dem zweiten Parameter von
Listbox1.ItemAtPos(Point(X,Y),true);
wird
- bei true bei einem klick auf eine leere Fläche innerhalb der Listbox nichts mehr selektiert
- bei false bei einem klick auf eine leere Fläche innerhalb der Listbox der alte Wert selektiert
mit freundlichen Grüßen
Nico