コードから、ラベルを作るには？ (ID:14154)

名前

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

本文 以下の様なコードではどうでしょうか． ミソというかポイントは (1)ALabelArray[i]:=TLabel.Create(Self); (2)ALabelArray[i].Parent:=Self; の2行です．(1)でラベルを作成します．(2)でそれを，Self，つまり このForm1にのせます．もし，パネル等にのせたい時はSelfの代わりに Panel1などとします． このコードではLabelをCnt:=5で，5つ作成しています． それぞれのLabelに，いろいろ設定するには，例えば2番目なら ALabelArray[1]:=何々; とします(何故なら0から始まっているので)． procedure TForm1.Button1Click(Sender: TObject); var i,Cnt : Integer; AWidth,AHeight : Integer; ALabelArray : array of TLabel; //ラベルを入れておく配列 begin Cnt:=5; AWidth:=100; AHeight:=30; SetLength(ALabelArray,Cnt); //ラベルを入れておく配列の大きさ決定!!(255以下に限る) for i:=0 to Cnt-1 do begin ALabelArray[i] :=TLabel.Create(Self); ALabelArray[i].Parent :=Self; ALabelArray[i].AutoSize :=False; ALabelArray[i].Alignment:=taCenter; ALabelArray[i].LayOut :=tlCenter; ALabelArray[i].Left :=150; ALabelArray[i].Width :=AWidth; ALabelArray[i].Height :=AHeight; ALabelArray[i].Top :=50+(AHeight+5)*(i-1); ALabelArray[i].Color :=clSilver; ALabelArray[i].Caption :='Label '+IntToStr(i); end; end;