TListBox ListBox1MouseActivate ItemIndex?

[Uwe Raabe]

Zitat von Glados:

Wenn der Array-Index für dieses Item nun False ist, dann soll der ItemIndex der ListBox nicht auf das angeklickte Item gesetzt werden.

Hier ein Beispiel, bei dem alle ungeraden Zeilen nicht angewählt werden können:

Delphi-Quellcode:

procedure TForm207.ListBox1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest:
    Integer; var MouseActivate: TMouseActivate);
var
  idx: Integer;
begin
  idx := ListBox1.ItemAtPos(Point(X, Y), True);
  if Odd(idx) then begin
    MouseActivate := maNoActivateAndEat;
  end;
end;

[Glados]

maNoActivaeAndEat Das hat geholfen!

Ich habe es nun so umgesetzt:
ListBox-OnMouseActive wird bei Mausklick als erstes ausgelöst. Dort prüfe ich, ob das angeklickte Item selektiert werden kann. Wenn nicht, wird maNoActivaeAndEat gesetzt.
Darf das Item selektiert werden (maNoActivaeAndEat nicht gesetzt), wird automatisch in ListBox-OnClick gesprungen. Sonst nicht. Funktioniert einwandfrei danke.