掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
繰り返しについて (ID:11421)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
なだか Delphi じゃなくて BASIC の構文みたいな感じですね。 Delphi でそのようなことをするには、TCanvas の Polyline() メソッドを使います。横に 500 はともかく、縦に 1000 はスクリーンからはみ出しそうですけど。 procedure TForm1.Button1Click(Sender: TObject); var points:array[0..3] of TPoint; begin points[0] := Point(0,0); points[1] := Point(0,1000); points[2] := Point(500,1000); points[3] := Point(500,0); Canvas.Polyline(points); end; 蛇足ですが、閉じた多角形の場合は Canvas.Polygon(points); を使います。内側は Brush で塗りつぶされます。Canvas.Brush.Style := bsClear; にすると塗りつぶされません。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.