Ich habe zwei ToggleBoxen. Wenn eine angeklickt wird (checked=true) dann soll die andere nicht angeklickt sein (checked=false). Es soll also immer nur eine angeklickt sein.
Mein Quellcode bis jetzt:
Code: Alles auswählen
procedure TForm1.ToBoxchangeClick(Sender: TObject);
begin
IF ToBoxchange.Checked=false then
begin
ToBoxchange.Checked:=true;
ToBoxdelete.Checked:=false;
end;
end;
procedure TForm1.ToBoxdeleteClick(Sender: TObject);
begin
IF ToBoxdelete.Checked=false then
begin
ToBoxdelete.Checked:=true;
ToBoxchange.Checked:=false;
end;
end;
Mein Problem ist jetzt (zu Anfang sind beide nicht gecheckt), ich klicke zuerst auf die erste ToggleBox (da ist alles ok) und danach auf die zweite Box. Dabei wird die erste nicht "unchecked" sondern beide Boxen sind auf einmal "checked". Klicke ich nun nochmal auf eine der Boxen rauf kommt dieser Error:
Kann mir jemand helfen?
Liebe Grüße
Tim