コードでコンポーネントを追加するには？ (ID:7966)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 こんな感じです。 type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender: TObject); private { Private 宣言 } public MyLabel:TLabel; // 手書きで追加 end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.Button1Click(Sender: TObject); begin MyLabel := TLabel.Create(self); MyLabel.Parent := self; MyLabel.Left := 10; MyLabel.Top := 10; MyLabel.Caption := 'コードで作成しました'; end;