掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
class of TGraphic(TGraphicClass) (ID：15126)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
kkkさん、にしのさん、実験ありがとうございます。 これだけで再現。 WindowsXP SP1 Pro + D5up1 unit Unit1; interface uses Windows, Classes, Controls, ExtCtrls, Forms, Graphics; type TForm1 = class(TForm) Image1: TImage; procedure FormShow(Sender: TObject); private { Private 宣言 } public { Public 宣言 } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormShow(Sender: TObject); var grphClass :TGraphicClass; newGraphic :TGraphic; begin grphClass := TBitmap; newGraphic := grphClass.Create; //(1) newGraphic.LoadFromFile('C:\Graphic\色塗り初期色設定256.bmp'); Image1.Picture.Assign(newGraphic); newGraphic.Free; end; end. (1)で止めてトレースすると、(2)まで飛びます。 constructor TObject.Create; begin //(2) end; クラス参照型を返さず、対応したインスタンスを返せばいいのかもしれませんが、仕様上、そういうわけにもいかんのです。 D5が悪いのか？開発環境が悪いのか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.