Ładny brzuch
Witam.
Jak zwykle mam jaki problemik, z ktrym sobie nie mog poradzi :blink:
Tworz sobie dynamicznie przyciski na TToolBar, czyli TToolButton. Mj problem polega na tym, e po dodaniu przycisku nie dodaje si on jako ostatni tylko jako pierwszy.
Jak sobie z tym poradzi ?
Oto kod jaki stosuj do dynamicznego tworzenia TToolButton
with TToolButton.Create(ToolBar2) do begin Parent:= ToolBar2; Caption:= Nazwa; Tag:= Numer; onclick:= ToolSerwClick; end;
Thx
Napewno da si tak :) :
with TToolButton.Create(ToolBar2) do begin Parent:= ToolBar2; Caption:= Nazwa; Tag:= Numer; Left := ToolBar2.Buttons[ToolBar2.ButtonCount - 1].BoundsRect.Right; onclick:= ToolSerwClick; end;
Faktycznie dziaa :)
e ja na to sam nie wpadem ;D
Thx lukexpert :)
btw. Mona zamkn :)
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
Jak zwykle mam jaki problemik, z ktrym sobie nie mog poradzi :blink:
Tworz sobie dynamicznie przyciski na TToolBar, czyli TToolButton. Mj problem polega na tym, e po dodaniu przycisku nie dodaje si on jako ostatni tylko jako pierwszy.
Jak sobie z tym poradzi ?
Oto kod jaki stosuj do dynamicznego tworzenia TToolButton
with TToolButton.Create(ToolBar2) do begin Parent:= ToolBar2; Caption:= Nazwa; Tag:= Numer; onclick:= ToolSerwClick; end;
Thx
Napewno da si tak :) :
with TToolButton.Create(ToolBar2) do begin Parent:= ToolBar2; Caption:= Nazwa; Tag:= Numer; Left := ToolBar2.Buttons[ToolBar2.ButtonCount - 1].BoundsRect.Right; onclick:= ToolSerwClick; end;
Faktycznie dziaa :)
e ja na to sam nie wpadem ;D
Thx lukexpert :)
btw. Mona zamkn :)