モナーの *やさしい* Delphi質問スレ Ver.11
■ このスレッドは過去ログ倉庫に格納されています
0752組込もしまっせ
NGNGフォームの FreeNotification で 自分を登録します。
すると、そのフォームが別のタイミングで解放される場合に知る事が可能になります。
もし自分なら、TFormInfo を record ではなくTComponentList 継承のコンポーネントにします
//FormInfo: TFormInfo;
//OpenForm: TForm;
OpenForm := FormInfo.Form.Create(Application);
FormInfo.Add(OpenForm); //作成したフォームをリストに追加しておく
OpenForm.FreeNotification( FormInfo. ) ; //解放される時の連絡先に登録しておく
そして、FormInfo の Notification には フォームが解放される時に opRemoveが呼ばれるので
FormInfo.Remove で削除しておきます
また、FormInfoを解放する直前に OwnsObjects:=True にします
■ このスレッドは過去ログ倉庫に格納されています