掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
生成したTPaintBoxに線を描画するには？ (ID:20563)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>後ろでUpdateしたところ、描画されませんでしたが あははっ，すみません． それと，TPaintBoxを特定のUnit内でCreateして使用する時は，OnPaiintを定 義して使用すると確実です．たとえば， MyPaintBox := TPaintBox.Create(Self); with MyPaintBox do begin Parent := Self; Visible:=True; OnPaint := PaintBoxOnPaint; end; end; procedure TForm1.PaintBoxOnPaint(Sender: TObject); begin Canvas.Pen.Color:=clBlack; Canvas.Pen.Width:=5; Canvas.Pen.Style:=psSolid; Canvas.MoveTo(0,0); Canvas.LineTo(100,100); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.