Hallo Leute,
ich habe vier ToggleSwitches tsw1 bis 4 und will, dass
nur einer auf [ein] geschaltet werden kann. Ich habe mir Folgendes ausgedacht:
Delphi-Quellcode:
procedure MultipleChoiceDlg.tsw1Click(Sender: TObject);
var
tsNr,i: Integer;
begin
tsNr:=(Sender as TToggleSwitch).Tag;
for i:=1 to 4 do
if i <> tsNr then TToggleSwitch(FindComponent('tsw'+IntToStr(i))).State:=tssOff;
//TToggleSwitch(FindComponent('tsw'+IntToStr(tsNr))).State:=tssOn; Das funktioniert nicht!
end;
Die anderen Switches werden zwar [aus] geschaltet aber der angeklickte Switch bleibt unverändert. Ich muss erneut klicken. Nur eine Kleinigkeit aber es ist irgendwie unlogisch. Es sieht so aus, als wenn im OnClick-Ereignis etwas ausgeführt wird, das Schalten des ToggleSwitch nicht mehr statt findet.