TListBox ListBox1MouseActivate ItemIndex?

[Uwe Raabe]

Zitat von Glados:

Hilft leider und komischerweise auch nicht.

Was hilft nicht? Liefert der Code nicht den Index des angeklickten Items?

Zitat von Glados:

Das MouseActivate-Event wird nach meinen Tests noch vor dem Zeichnen des Selected-Rectangles aufgerufen.
Wenn eine Bedingung in dem Event Zutrifft, rufe ich Exit auf und setze das neue ItemIndex erst gar nicht.

Ich glaube hier müsste ich wohl eher im DrawItem ansetzen und irgendwie das Zeichnen des Selected-Rectangles unterbinden oder?

Hier kann ich dir leider nicht mehr folgen. Kannst du mal im Detail erklären, was du vorhast?

[Glados]

Ich habe eine ListBox, wo ich die Items selber Zeichne.
Manchmal sind gewisse Items "deaktiviert". Ich ändere nur das Font zu Grau und Style zu Italic. In einem Boolean-Array halte ich den Index der "deaktivierten" Items fest.

Klicke ich nun auf ein Item prüfe ich, ob dieses "aktiviert" oder "deaktiviert" ist (ich gucke einfach nach dem Index im Array nach).

Wenn der Array-Index für dieses Item nun False ist, dann soll der ItemIndex der ListBox nicht auf das angeklickte Item gesetzt werden. Ist das der Fall (Item "deaktiviert"), wird also aktuell im OnClick der ItemIndex auf das zuletzt angewählte Item zurückgesetzt. Und genau hier sieht man ab und zu trotzdem, wie das "deaktivierte" Item kurzzeitig "selektiert" wird und die Selektion dann wieder zum alten Item zurückspringt.

[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.