掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
生成したTPaintBoxに線を描画するには？ (ID：20567)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
「花の命は」さん、わかりやすいご説明をありがとうございます。 描画されたけど、消えていたんですね。一瞬見えることがあるのは気のせいじゃなかったみたいです。 自分なりに試していたクラス版は、まだ暗礁に乗り上げています。 それどころか、基本的な部分で勘違いしているのかもしれません。 というのは、フォームに貼り付けたPaintBoxのOnPaintイベントにコードを書いても、ウィンドウに隠れた後で再描画されなくなってしまいました。 Mr.XRAYさんのコードは問題なく再描画されます・・。 一番シンプルな形でコードを作ってみました。 何かいけないのでしょうか？（ これだけシンプルなコードでも自力解決できないなんて情けないなぁ・・。 クラスなんて、夢のまた夢のように感じてきました。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) PaintBox1: TPaintBox; procedure PaintBox1Paint(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.PaintBox1Paint(Sender: TObject); begin //フォームが表示された時点で線が描画されるが //他のウィンドウに隠れた後は、消えてしまう PaintBox1.Update; //←現象はUpdateを入れても変わらない Canvas.LineTo(100,100); end; end.
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.