Robert wollte nur darauf hinweisen, dass es besser für den
Benutzer ist wenn er bekannte Objekte sieht, dass diese auch so funktionieren wie erwartet. Und ein Windows-Nutzer erwartet nun mal bei einer Checkbox, dass jede einzeln ausgewählt werden kann und bei Radiobuttons nur eine davon.
Delphi-Quellcode:
If TCheckbox(FindComponent(Refname+InttoStr(i))).Checked then
Begin
TCheckbox(FindComponent(Refname+InttoStr(i))).onClick:=nil ;{Ereignisroutine abschalten}
TCheckbox(FindComponent(Refname+InttoStr(i))).Checke:=False;{sonst wird’s spassig}
TCheckbox(FindComponent(Refname+InttoStr(i))).onClick:=onclick Methode{wieder aktiv }
End;
Dort sollte man entweder eine Variable nutzen in der die Checkbox gespeichert wird, oder with. Vier mal FindComponent ist nicht gerade performant
Delphi-Quellcode:
var
tmpCheckBox: TCheckBox;
begin
.
.
.
tmpCheckBox:=TCheckbox(FindComponent(Refname+InttoStr(i)));
If tmpCheckBox.Checked then
Begin
tmpCheckBox.onClick:=nil ;{Ereignisroutine abschalten}
tmpCheckBox.Checke:=False;{sonst wird’s spassig}
tmpCheckBox.onClick:=onclick Methode{wieder aktiv }
End;