Reihenfolge TToolbutton

[Garfield]

Was hältst Du von:

Delphi-Quellcode:

for i := 0 to tb.ButtonCount - 1 
do begin
  j := 0;

  while (tb.Buttons[j].Tag <> i) and (j < tb.ButtonCount - 1)
  do inc (j);

  if tb.Buttons[j].Tag = i
  then begin
    tbtn      := tb.Buttons[j];
    tbtn.Left := tbtn.Tag * tb.ButtonWidth;
  end;
end;

Zitat von _frank_:

      tbtn.left:=tbtn.tag*tb.buttonWidth+1;

Die Anweisung wird nie ausgeführt, weil Left ein Vielfaches von ButtonWidth sein muss. Erster ToolButton hat Left = 0. Nach der Formel wäre Left = 1.