Einzelnen Beitrag anzeigen

venice2
(Gast)

n/a Beiträge
 
#1

Button nebeneinander und untereinander addieren

  Alt 24. Feb 2020, 20:57
Ich möchte Button nebeneinander und untereinander zur Laufzeit addieren

Mein Array 0..19 (20 Button)
Die Berechnung
Delphi-Quellcode:
    
    if (A < 5) then // weniger wie 5 = 5 Button
    begin
      inc(x, 125) // x Position um 125 inkrementieren
    end else
    begin
      if A mod 5 = 0 then // 5 Button erreicht
      begin
        inc(y, 125); // y Position verändern
        x := 15; // Reset x
      end else
      inc(x, 125); // x um 125 inkrementieren
    end;
Leider bekomme ich in der ersten Reihe immer 6 anstelle von 5 Button.
Und in der letzen 4.
Wo ist mein Denkfehler?
  Mit Zitat antworten Zitat