掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
生成したTPaintBoxに線を描画するには？ (ID:20560)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
フォームに配置したPaintBoxには、問題なく線を描けるのですが、 自分で生成したPaintBoxは、線を描くことができません。 何か、特別な処理が必要でしょうか？ 下記にソースを添付します。 ご指導いただけると幸いです。 なお、背景は透明なまま、線を描きたいと思っています。 よろしくお願いします。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Button1: TButton; PaintBox1: TPaintBox; procedure Button1Click(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var //TPaintBoxを生成するための宣言 MyPaintBox: TPaintBox; MyLabel: TLabel; begin //フォームをオーナーにして生成する MyPaintBox := TPaintBox.Create(Form1); //通常生成したオブジェクトはParentを指定すると表示される MyPaintBox.Parent := Form1; //キャンバスに描画しても、線が表示されない MyPaintBox.Canvas.LineTo(100,100); //こちらは線が表示される PaintBox1.Canvas.LineTo(100,100); end; end.
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.