Ceckboxen Exklusiv schalten in CheckListbox

[tempuss]

GUTEN ABEND FREUNDE des PROGRAMMIERENS!

Code: Alles auswählen

procedure TForm1.CheckListBox1ClickCheck(Sender: TObject);
Var i,j: integer;
begin
j:=Checklistbox1.Count-1;
for i:=0 to j do
    Checklistbox1.Checked[i]:=False;
Checklistbox1.Checked[Checklistbox1.ItemIndex]:=True;
end;

Mit obenstehendem Code soll immer nur eine(!) Checkbox anwählbar sein.
Hat mit Delphi bestens geklappt, Lazarus will hierbei nich mitspielen..

Delphi hatte mir dicke Probl. mit records beschert, daher bin ich zu Lazarus rüber.

Anfangs wurden der gesetzte Haken garnicht gelöscht und es kammen immer neue dazu.
Nach einem Neustart klappt es, nur der letze Haken bleibt nicht stehen,
er blitzt nur kurz auf un verschwindet wieder.
Ist es nur ein Bug oder mache ich was ganz falsch??
Wie gesagt, bei Delphi klappt das bestens

DANKE IM VORAUS!!!
Gruß Uli

[m.fuchs]

Zumindest funktioniert es bei mir, wenn ich mit der Maus die Checkboxen anklicke. Aber schon bei Nutzung der Cursortasten zur Navigation und Space für das Setzen der Häkchen ist es vorbei mit den einzelnen Haken.

Aber mal eine andere Idee: muss es denn wirklich eine CheckListbox sein? Als User erwarte ich bei den Checkboxen, dass ich mehrere auswählen kann. Für die Einzelauswahl gibt es doch die Radiogroup. Wenn dir die Anzahl der Items zu hoch ist, kannst du sie ja in eine Scrollbox setzen.

[tempuss]

Ja Hallo!

Es müssen natürlich keine Checkboxen sein.
Ich bin darauf gekommen, als ich die Checklistbox kennen lernte.
Lassen sich denn Radiobuttons in eine Listbox intregrieren?? Hab ich noch nicht gesehn
Mit ner Scrollbox hatte ich bisher noch nix gemacht.
Hab die Komponente in der Palette Zusätzlich gefunden.
Wird die ähnlich gefüllt wie ne Listbox?
Naja ich versuch es mal über Google.

DANKE DIR!!