Hallo joseph_l,
das alleinige Setzen der Parent-Eigenschaft reicht leider nicht aus um den Button in die Toolbar einzufügen. Zum Ansprechen der protected-Methode
TToolButton.SetToolBar benötigt man einen "ClassCracker":
Delphi-Quellcode:
type
TButtonCracker = class (TToolButton);
begin
MyToolbutton := TToolbutton.Create(form1);
MyToolbutton.Caption := 'nBook1';
// MyToolbutton.Parent := toolbar1; <-- entfernt
mytoolbutton.ImageIndex:=48;
mytoolbutton.name:='nBook01';
mytoolbutton.enabled:=true;
mytoolbutton.OnClick:=buttonClick;
with Toolbar1.BoundsRect do
mytoolbutton.SetBounds(Right, Top, mytoolbutton.Width, mytoolbutton.Height);
MyToolbutton.visible:=true;
TButtonCracker(MyToolbutton).SetToolBar(toolbar1); // <-- hinzugefügt
end;
Die Deklaration von TButtonCracker muß global sein, da Delphi keine lokalen Klassen unterstützt.
Gruß Hawkeye