以Button为例:
with TButton.Create(Self) do begin
Name := 'But1';
Parent := Self.ScrollBox1;
Caption :='name';
Align :=alTop;
Top := 10;
Left := 10;
OnClick:= Button1.OnClick;
Show;
end;
以Button为例:
with TButton.Create(Self) do begin
Name := 'But1';
Parent := Self.ScrollBox1;
Caption :='name';
Align :=alTop;
Top := 10;
Left := 10;
OnClick:= Button1.OnClick;
Show;
end;