Komponenten Highlighter

[Ricane]

Moin,

ich habe ein ähnliches Problem, wie es hier auch schon behandelt wurde.

Also, in einer ListBox habe ich folgendes stehen ...

Code:

If MidStr(Erinnern[Lst_Artikel.ItemIndex + 1] ,1,1) = '1'  then CheckBox1.Checked := True;

Das bedeutet ja das er, wenn die Abfrage True ist, das Ereignis CheckBox1Click ausführt.

Dort soll er eine Variable wieder auf False setzten, aber nur wenn das Ereignis nicht von der ListBox ausgelöst wird, sondern direkt von der CheckBox.

Nachdem ich das hier gelesen habe, habe ich es mit folgendem Code probiert, den ich in die CheckBox1Click Prozedur gelegt habe...

Code:

If Sender is TListBox then Exit;           ... oder ...
If Sender = Lst_Artikel then Exit;         ... oder ...
If (Sender is TListBox) then Exit

Aber immer ohne Erfolg. Wenn ich mir das während des Debbugens angucke ist die VAR Sender immer leer. (Egal wer das Ereignis auslöst).

PS: Natürlich ist Sender deklariert...


Grüsse,

Ricane