Listboxeintrag mit beliebiger Maustaste markieren

[Nicodius]

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