掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphiの初心者 (ID：16022)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
では上記以外の手法で。 これだとドラッグして動かすとかが簡易に実装可能です。 var NewShape: array[0..19] of TShape; procedure TForm1.Button1Click(Sender :TObject); var i : Integer; begin for i:= 0 to 19 do begin NewShape[i] := TShape.Create(self); NewShape[i].Parent := self; NewShape[i].Left := 10 + i*10; NewShape[i].Top := 10 + i*10; NewShape[i].Width := 80; NewShape[i].Height := 80; NewShape[i].Shape := stCircle; NewShape[i].Pen.Color := RGB((i*75)and $ff, (64+i*7)and $ff, (i*96+128)and $ff); NewShape[i].Brush.Color := RGB((i*48+200)and $ff, (i*27 )and $ff, (i*17+ 96)and $ff); end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.