Einzelnen Beitrag anzeigen

sonicfire

Registriert seit: 17. Jan 2006
Ort: Berlin
58 Beiträge
 
#10

Re: Checkboxen machen mich wahnsinnig!

  Alt 17. Aug 2006, 16:26
Zitat von KrasserChecker:
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
...

Bist ECHT ein krasser Checker!! Ich glaubs nicht - so geht es!!
Danke auch an alle anderen!
  Mit Zitat antworten Zitat