[delphi] TToolbar button later toevoegen kan dat?

[JSchut]

is het mogelijk om een TToolButton aan een TToolBar toe te voegen als het prog al draait?

ik kan hier namelijk ook nergens iets over vinden

ze leggen alleen uit hoe je het van te voren kan doen

[Creepy]

Is op community.borland.com vast wel te vinden.

Maar het gaat op dezelfde manier als dingen toevoegen aan een form: Creeren, parent zetten en klaar

code:

var dummy: TToolButton;
begin
     dummy:=TToolButton.create(toolbar1);
     dummy.parent:=toolbar1;
     dummy.caption:='blaat';
     dummy.imageindex:=1; // als toolbar1 images heeft natuurlijk
end;

En als je dan in de .create als owner de toolbar meegeeft, dan zal de toolbar zelf al z'n buttons opruimen.

[Verwijderd]

Ik heb geen verstand van de toolbars, maar denk dat het wel gewoon kan. Waarschijnlijk moet het (ongeveer) zo:

code:

Button := TButton.Create(Self);
Button.Width := ...;
Button.Height := ...;
Button.Left := ...;
Button.Top := ...;
Button.Parent := ToolBar;
Button.Visible := True;

[JSchut]

het werkt idd maar er is 1 ding dat er niet aan werkt en dat is de caption van de TToolButton

[Verwijderd]

Heb je ook .Text geprobeerd?

[JSchut]

ja dan krijg ik [Error] Unit1.pas(67): Undeclared identifier: 'Text'

en bij Caption krijg ik geen error maar er komt niks op de button te staan

er vaag dus

[Aetje]

Dump de code die je gebruikt ff... inclusief toolbar creation code als die er is...

[JSchut]

ik heb het al gevonden

is wel lekker bijdehand

showcaptions op m'n toolbar stond uit

waarom zetten ze dat standaard uit

bedankt voor alle reacties