ユニット分割について (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;