コードから、ラベルを作るには？ (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;

←解決時は質問者本人がここをチェックしてください。

戻る