CheckListbox Selektierte Einträge aufheben

[Jens Hartmann]

Guten Morgen zusammen,

jetzt habe ich den ganzen gestrigen Abend und heute morgen schon probiert einen selektierten Eintrag in einer CheckListBox aufzuheben. Leider ohne jeden Erfolg. Mein Problem liegt dabei, das wenn ich einen Eintrag anwähle, dieser selektiert wird, klicke ich jetzt zum Beispiel in ein leeres Feld der CheckListBox, oder in eine andere Komponente der Form, müsste diese ja eigenlich den Focus bekommen und die Selektion aufheben.
Eine weiter Möglichkeit, müsste ja irgendwie die Funktion

Delphi-Quellcode:

CheckListBox1.ClearSelection;

bieten, allerdings wie setzt ich das ein. Muss ich die Funktion in jedes OnClick Ereignis packen? Oder kann man das irgendwie allgemein halten.

PS: MultiSelect ist = false;

Gruß Jens

[s.h.a.r.k]

Wieso sollte sich eigentlich die Selektion aufheben, wenn die Komponente den Fokus verliert? :shock:

[Jens Hartmann]

Nein, aber wenn ich doch normal auf eine andere Komponente klicke, und diese den Focus erhält, sollte es doch möglich sein, dieses auszuwerten und die Selektion aufzuheben. Das Problem ist ja, das ich die Selektion auch nicht aufgehoben bekomme, wenn ich in einen freien Bereich der CheckListBox Klicke.

Ich mach mit der CheckListBox folgendes. Ich habe mehrere CLB, die das selbe PopUpMenü nutzen. Beim selektieren, wird der Eintrag "löschen" im PopUp Enabled und ich kann den Selktierten Eintrag löschen.
Klicke ich jetzt in die nächste CheckListBox, bleibt allerdings der selektierte Eintrag in der erste bestehen.

Und ich möchte halt, das die Selektion aufgehoben wird. Jetzt ist halt die Frage, ob ich das allgemein oder über eine Eigenschaft konfigurieren kann, oder ob ich das in jedes OnClick Ereignis packen muss.

Gruß Jens

[s.h.a.r.k]

Hm... Gibts da kein OnExit?! Das wird ja eigentlich aufgerufen, wenn diese Liste den Fokus verliert.

// edit
Wenn ich ein ClearSelection aufrufe passiert mal sowas von gar nichts... :gruebel: Im Quelltext ist aber der richtige Code hinterlegt. Strange...

[Jens Hartmann]

Zitat:

Zitat von s.h.a.r.k

Hm... Gibts da kein OnExit?! Das wird ja eigentlich aufgerufen, wenn diese Liste den Fokus verliert.

Gute Idee, könnte funktionieren. Werde ich prüfen..

Gruß Jens

[Jens Hartmann]

Danke s.h.a.r.k,

es hat funktioniert. Hier die Lösung....

Delphi-Quellcode:

procedure TfGServer.chklstNumbersClearDisplayExit(Sender: TObject);
begin
  chklstNumbersClearDisplay.ClearSelection;
end;

Schönen Abend noch und Gruß

Jens