Oprette toolbar knap i runtime

Hey Thomas,
det er faktisk ret simpelt

Jeg vil råde dig til at bruge TTBXItem når du nu alligevel bruger TBX.

Du kan bruge følgende kode

var
  btn: TTBXItem;
begin
  btn:= TTBXItem.Create(Docs);
  btn.Caption:= 'Sejt!';
  btn.ImageIndex:= 0;
  btn.OnClick:= btnEventHandler; //Sender:TObject;
  Docs.Items.Add(btn);
end;

Koden vil oprette en knap, med titlen 'sejt' som kører eventen "btnEventHandler(sender: TObject);" når der trykkes på knappen.

Download evt. eksemplet her:
http://kenman.dk/udvikleren/TBXTest.zip

Okay, det afprøver jeg straks, tusind tak for dit svar.

Ja, sørme om det ikke virkede Ved du også hvordan man gør, så den knap man klikker på er "nede" som den eneste? Det er vel lidt sværere når man laver sine knapper i runtime, eftersom knapperne kommer til at hedde det samme.

Edit: Jeg fandt ud af at sætte den knap man klikker på ned ved at kigge på dit eksempel, men de andre er stadig nede og det er ikke godt

Edit igen: Jeg fandt ud af at gøre det med en løkke:

  i:=0;
  while i < Docs.Items.Count do
  begin
    Docs.Items[i].Checked:=false;
    inc(i);
  end;

Men er der ikke en "smartere" måde? Evt. en funktion/procedure.

evt gør det med
for i:= 0 to Docs.Items.Count-1 do Docs.Items.Checked:= False;