FireMonkeyのPaintBox内に線を引きたい (ID:40995)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 >OnPaintイベントで処理してもやはり同じでフォーム上に描かれてしまい、 >PaintBox内に引けません。 先に挙げた procedure TForm1.PaintBox1Paint(Sender: TObject; Canvas: TCanvas); begin Canvas.DrawLine(PointF(0,0), PointF(100,100), 1); end; も、フォーム上に描かれましたか？ (引数のCanvasを使ってDrawLineで線を引いています。)