Ich weiß zwar immer noch nicht was das soll!
Aber ein vorschlag...
Delphi-Quellcode:
unit u_prog
...
type Work_Panel =
Class
class procedure button_creation(Self : TPanel);
end;
...
var mybutton : TButton;
class procedure Work_Panel.button_creation(Self : TPanel);
begin
mybutton := TButton.create(self);
mybutton.parent := self;
end;
procedure CreateComponents;
begin
Work_Panel.button_creation;
end;
Und CreateComponents ganzt du in OnCreate aufrufen.