《 Delphi 》 動的なフォーム生成について

質問

プログラムをしていて疑問に思ったのですが、たとえば
Form1 := Tform1.create(Application);
として、Form1（設計済み）のインスタンスを作って表示させたとします。
ここで、更に Tform1.create を行った場合、Form1の参照先は新しく作ったほうになると思うのですが、古いほうのインスタンスはどうなるのでしょうか？Form1に属するメンバはやはりゴミとして残るのでしょうか。

また、Form1を消去して新たに作り直したい場合は、Form1.Releaseをしてから再度Createすれば問題はないのでしょうか。
実は、Releaseしてから再Createしたところ、Form自体はできたのですが、Form上のImageをCreateする段階でアクセス違反が起きて落ちてしまいまして・・・（Form1にはImageがひとつ乗っており、Form生成時にImageも生成されます）。
ソースを削って原因究明したところ、関係ない変数を代入すると発生したり収まったりして、もしやメモリを蝕んでいる！？とか思ったもので・・・。

思い当たる節がありましたら、ご教授いただければ嬉しいです。

回答No.2

papayuka · ベストアンサー

こんにちは。

メインのForm2にButtonを1つを置き、プロジェクトのオプションでForm1の自動作成を「選択可能」へ写して、Form2のButton1のClickイベントに

procedure TForm2.Button1Click(Sender: TObject);
var Frm : TForm1;
begin
　Frm := TForm1.Create(Application);
　try
　　Self.Hide;
　　Frm.ShowModal;
　finally
　　Self.Show;
　　Frm.Release;
　end;
end;

とかやってみました。
こんなイメージでしょうか？

お礼

ありがとうございます。この方法で行けると思ったのですが、アクセス違反が発生してしまいました。
TForm1.Create(Application);
としてから、Form1.OnCreate内にて
Timage.create(form1);
をしているのですが、一度破棄して再度imageを作ろうとするとコケるようです。メモリリークも確認しましたが、していないようです・・・。

回答No.4

papayuka

こんにちは。

> どうやらフォーム上で用いたオブジェクトの解放の方法に問題があったようです。

この場合フォームに動的に作成して配置したTImageはフォームが破棄される時に自動的に破棄されると認識してますが、、、

お礼

TImageのほかに元々Formに乗っていたDirectX関係のオブジェクトが原因でした。
簡単に説明しようとして端折りすぎてしまいました。Image生成時に落ちていたので、てっきりImageのせいだと思っていたので・・・申し訳ないですm(_ _)m

回答No.3

papayuka

こんにちは。

不具合の再現できる最小限のソースを提示されてはどうでしょう？

Form1　のUses に　ExtCtrls, ClipBrd, StdCtrls　を追加して、

procedure TForm1.FormCreate(Sender: TObject);
begin
　if Clipboard.HasFormat(CF_TEXT) then begin
　　 with TMemo.Create(Self) do begin
　　　　　Parent := Self;
　　　　　Align　:= alClient;
　　　　　Lines.Add(Clipboard.AsText);
　　 end;
　end else
　if Clipboard.HasFormat(CF_PICTURE) then begin
　　 with TImage.Create(Self) do begin
　　　　　Parent := Self;
　　　　　Align　:= alClient;
　　　　　AutoSize := True;
　　　　　Picture.Assign(Clipboard);
　　 end;
　end;
end;

ペイントなどから画像をクリップボードにコピーしてから実行すると Form1 に画像が表示され、文字だとメモが表示されます。こちらでは何回呼んでもアクセス違反は発生しないようです。

お礼

最小限まで削ってみたのですが、削っていくとEAccessViolationがEAbstractErrorになったり、全く無関係の場所を削っただけでエラーが出なくなったりと、手に負えなくなってしまいました。それで今日、TImageの親をForm1からForm2あるいはSelfにしたところ、生成時のエラーが出なくなり、フォームの再生成ができるようになりました。ただし、今度は2回目にReleaseしようとするとアクセス違反になってしまいましたが・・・。
何度も申し訳ありません。もう少し調べてみます。

補足

すみません、「発生原因が不明のエラー」ですが、どうやらフォーム上で用いたオブジェクトの解放の方法に問題があったようです。
今まで、想定しうる最大の個数ぶんを解放する命令を書いていまして・・・実際に作ったインスタンスの個数を越えて解放しようとしており、矛盾が起きていたようでした。
いろいろとありがとうございました。お騒がせして申し訳ありません。

回答No.1

papayuka

こんにちは。

具体的にはどんなソースを書かれていますか？
提示されても解決出来るかは解りませんが、、、

補足

お答えありがとうございます。Form2がメインフォームで、メニュー画面になっています。内容を選択すると、それに沿った内容でForm1のデザインが変わるようになっています。Form1と、それに配置されるコンポーネントは選択に応じてその都度生成されます。いままでは、Form1を終了させるとアプリケーションが終了するようしていたのですが、メニューに戻る必要が生じて、Form1を閉じるときに自身を破棄し、Formメニューから選択すると再び生成・・・ということがやりたいのです。
Form1に属するメンバを全て廃棄すれば良いんだと思っているのですが、上手くいかなくて・・・。(汗