掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ユニット分割について (ID:150013)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ゴメンなさい． > TForm.OnCreate の段階では TImage は完全に生成されていないようです． ということは以下ですね． これで TForm.Create でクラスのインスタンスを生成しても問題ありません． 失礼しました．アップした ZIP 書庫内のファイルも修正しました． procedure TMyCommTImageClass.SetTargetCtrl(const Value: TImage); begin if csLoading in ComponentState then Exit; // これを追加 FTargetCtrl := Value; if FTargetCtrl <> nil then begin FTargetCtrl.OnMouseDown := OnMouseDownEvent; end; end; としておけば，ユニットを利用する側は以下で OK です． uses HogeHogeTImage; {$R *.DFM} var FMyCommClass1 : TMyCommTImageClass; procedure TForm1.FormCreate(Sender: TObject); begin FMyCommClass1 := TMyCommTImageClass.Create(Self); FMyCommClass1.TargetCtrl := Image1; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.