Zitat von
Neutral General:
Hab grade versucht das Problem zu lösen aber genau wie du sagst ist das Problem das sobald man Checked ändert wird die OnClick Procedure ausgeführt -.-^^
Stimmt, daher müsste es doch auch eigentlich reichen, wenn Du die erste Schleife umdrehst.
Also statt
Delphi-Quellcode:
...
if VeloLayers = (Sender as TCheckBox).Tag then
begin
For i:=1 to VeloLayers-1 do
begin
BoxToCheck[i].Enabled := True;
BoxToCheck[i].Checked := False;
end
end
...
einfach
Delphi-Quellcode:
...
if VeloLayers = (Sender as TCheckBox).Tag then
begin
For i:=VeloLayers-1 downto 1 do
begin
BoxToCheck[i].Enabled := True;
BoxToCheck[i].Checked := False;
end
end
...