掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Delphiの初心者 (ID：16041)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ふふふ。 だから方眼紙にコンパスで円を書いて・・・みろ procedure TForm1.Button1Click(Sender: TObject); var i : integer; procedure En(X,Y,R : Integer); //X,Yが中心、Rは半径 begin PaintBox1.Canvas.Ellipse(); // ここはじぶんで完成すること //ヒント 足し算と引き算 end; begin for i:=1 to 40do begin with PaintBox1.Canvas do begin Brush.Style := bsClear; pen.color:=clBlue; En ( , , ); //ここも自分で完成すること end; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.