Entwickler-Ecke

Grafische Benutzeroberflächen (VCL & FireMonkey) - ToolButtons zur Laufzeit erstellen???


Raps - Sa 25.01.03 22:51
Titel: ToolButtons zur Laufzeit erstellen???
Hi!
Kann mir jemand sagen, ob es möglich ist Buttons einer Toolbar zur Laufzeit zu erstellen und wenn ja wie ? Die Eigenschaft TToolBar.Buttons ist nämlich leider Schreibgeschützt.


Millo - Sa 25.01.03 23:25

Moin das sollte nicht das Problem werden. Du hast da nur was nicht bedacht die Buttons einer ToolBar sind "eigenständig". Du kannst sie mit TToolButton ansprechen.
Das sieht dann so aus:

Quelltext
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
var button:Ttoolbutton;
begin
  button := TToolbutton.Create(Toolbar1);
  with button do
  begin  
    Parent := ToolBar1;
    Width := 32;
    Height := 32;
  end;
end;


Raps - So 26.01.03 00:31

Vielen Dank! :D