TToolBar (Schalteposition per Code bestimme)

[Karstadt]

Hallo.

So erstelle ich ein Schalter (bzw. eine Schaltfläche)

Delphi-Quellcode:

  Knopf := TPDJXPButton.Create(tb_taskleiste);
  with Knopf do
  begin
    Name := 'tb_'+Formularname;
    Parent := tb_taskleiste;
    ShowHint := True;

wie kann ich aber nun per code sagen, das dieser Schalter am Ende erstellt werden soll, bzw. wie kann ich die Position des Schalters auf der TToolbar ändern?

[Karstadt]

Delphi-Quellcode:

Knopf := TPDJXPButton.Create(tb_taskleiste);
  with Knopf do
  begin
    Name := 'tb_'+Formularname;
    Parent := tb_taskleiste;
    ShowHint := True;
  end;
 

 for i := tb_taskleiste.ComponentCount-2 downto 0  do
  begin
    TPDJXPButton(tb_taskleiste.Components[i]).Left := 0;
  end;

habs selber geschaft (hab mir die DFM Datei angeschaut )

[Hawkeye219]

Hallo Karstadt,

wäre es nicht einfacher, beim neuen Button die Eigenschaft .Left auf die Breite der Toolbar zu setzen anstatt alle anderen Buttons zu verschieben?

Gruß Hawkeye

[Karstadt]

BESSER! Danke.

Was passiert mit der Breite wenn es 1000 schaltflächen bigt? (kommt 100 % nicht vor)