掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
Creatメソッドを上手に使いこなすには。 (ID：20487)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
孤児はドコに行けばいいの？ 親を探さなきゃ… type TMyImage = class(TImage) private public end; TMyPanel = class(TPanel) private FMyImage: TMyImage; published property Images: TMyImage read FMyImage write FMyImage; public constructor Create(AOwner: TComponent); override; destructor Destroy; override; end; TMainForm = class(TForm) ........ private { Private 宣言 } public { Public 宣言 } end; var MainForm: TMainForm; MyPanel : TMyPanel; implementation {$R *.dfm} constructor TMyPanel.Create(AOwner: TComponent); begin inherited Create(AOwner); FMyImage := TMyImage.Create(Self); FMyImage.Parent := Self; // 養子縁組 end; destructor TMyPanel.Destroy; begin FMyImage := nil; inherited destroy; end; procedure TMainForm.FormCreate(Sender: TObject); begin MyPanel := TMyPanel.Create(Self); MyPanel.Parent := MainForm; // 養子縁組 MyPanel.Images.Picture.LoadFromFile('test.bmp'); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.