Nun doch noch eine Frage!
Ich habe meinen Code in einer andern
Unit. Diese
Unit legt auf die Toolbar Buttons an.
Hätte nun probiert:
Delphi-Quellcode:
Function CreateToolBar(Sender : TObject) : Boolean;
var
ToolBarObject : TToolBar;
begin
ToolBarObject := (Sender as TToolbar);
Aufgerufen wird es so:
CreateToolBar(Form4.Toolbar1);
Es gibt keinen Error, jedoch bleibt auch die Toolbar leer!?
Wie kann ich das Toolbar Objekt übergeben damit es geht ohne die Form4 in die Uses von der
Unit aufnehmen zu müssen?