掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphiの初心者 (ID：16051)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
手続きをつかわないと procedure TForm1.Button1Click(Sender: TObject); var i, chuusinX, chuusinY, hankei:integer; begin chuusinX := 200; chuusinY := 200; Canvas.Pen.Color := clBlue; Canvas.Brush.Style := bsClear; for i := 0 to 40 do begin hankei := 10+i*3; Canvas.Ellipse(chuusinX-hankei, chuusinY-hankei, chuusinX+hankei, chuusinY+hankei); end; end; になります。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.