ToolBar + dynamiczny ToolButton

0

Ave, wie moze ktos jak dynamicznie podpiac pod ToolBar ToolButton? Kombinuje juz od kilku godzin i nic. Robie Parent na ToolBara ale potem jak chce dodac komponent do formatki wywala komunikat "Control has no parent windows" :-/

p.s.
sorki za artogorafie word mi sie wykoleil ;-)

0

var Button:TToolButton;
begin
Button:= TToolButton.create(ToolBar1);
button.parent:=ToolBar1;

0

Robilem tak, sprawa jest troszke bardziej skomplikowana, poniewaz to jest komponent to raz calosc jest na wincontrol na to przychodzi combobo i z boku po prawej w create winctronloa twoze wszystko a wyglada to tak:

Var
 FItemsList : TComboBox;
 FBtnList    : TToolBar;
 FBtnDelete : TToolButton;

 Inherited Create(AOwner);
 Width              := 225;//73;
 Height             := 23;//23;

 FItemsList          := TComboBox.Create(Self);
 FItemsList.Top      := 0;
 FItemsList.Left     := 0;
 FItemsList.Width    := 145;
 FItemsList.Height   := 21;
 FItemsList.Align    := alLeft;
 FItemsList.Parent   := Self;

 FBtnList            := TToolBar.Create(Self);
 FBtnList.EdgeInner  := esNone;
 FBtnList.EdgeOuter  := esNone;
 FBtnList.Align      := alClient;
 FBtnList.Parent     := Self;

 FBtnDelete          := TToolButton.Create(FBtnList);
 FBtnDelete.Top      := 0;
 FBtnDelete.Left     := 0;
 FBtnDelete.Hint     := 'Usuń';
 FBtnDelete.ShowHint := True;
 FBtnDelete.Cursor   := crHandPoint;
 FBtnDelete.OnClick  := OnClickRun;
 FBtnList.Parent        := FBtnList;

I jesli w trkcie kompilowania mam osodzony komponent na formie to jest ok, ale jesli chce go dodac puzniej jeszcze raz to wali "Control has no parent window"

[Dopisane]
Komunkat tyczy sie nie przycisku a samego ToolBar, co jest grane, po paru takich komunikatach delphi mi sie wykrzacza...

1 użytkowników online, w tym zalogowanych: 0, gości: 1