MDIアプリケーションにおいて単一フォームを作るには
解決MDIアプリケーションを作っています。
その中で、Dialogでなく、MDIChildフォームで１個しか生成しない単一フォームを作りたいのです。
//単一フォームCreate
if not Assigned(SingleForm) then
SingleForm := TSingleForm.Create(Application);
SingleForm.Show;
そして、このフォームのCloseイベントで、
Action := caFree;
SingleForm := nil;
としました。しかし、１個しか生成しないのは良かったのですが、１回閉じてまた開く時にエラーが発生してしまうのです。
どうもSingleFormがnilになってないようで…
もし良いアドバイスをいただける方がおられましたら、どうかよろしくお願いします。
具体的にどんなエラーなのかわかりませんので、
間違っているかもわかりませんが、
SingleForm := nil;
をOnDestroyに記述してみてはいかがでしょう。
私はいつもそうしているのですが、これでエラーに
なったことはないようです。
こちらでは出来てます。
他に原因はありませんか？
バージョンが問題かも。
こちらはDelphi7Proです。
質問時には、環境を書いた方が早く解決できることが多いです。
また、現象を、最小のソースで再現できるか確認してみてください。
「このフォーム」って、MDIChildの事ですよね？
まさかとは思いますが。
もちろん、MDI親フォームのOnCloseではダメです。
ふぐちゃんさん、回答ありがとうございます。
ご指摘の通りOnDestroyイベントに記述したのですが、やはりエラーが出てしまいました。
エラーは、EAccessViolationです。
１回閉じて、２回目にフォームを開くコードに入った時、SingleFormがnilになっていないみたいで、Create文に入らすShowしてしまってます。
エラーになったことは無いのですか…もっと違うバグがあるのかな？
にしのさん、回答ありがとうございます。
バージョンは、にしのさんと全く同じです。
記述しているのはもちろん、MDIChild側のOnCloseイベントです。
>また、現象を、最小のソースで再現できるか確認してみてください。
これをよく怠るんです…今からやってみます。アドバイスありがとうございました。
にしのさんへ
今、作ってやってみたのですが、自分のはやはり２回目に開く時にエラーになってしまいます…
しかし、今度はAbstractエラーと出ました。
自分の弱い頭では原因が見当たらないです…
> if not Assigned(SingleForm) then
これを使わずに、親フォームの MDIChildCount と MDIChildren[] をつかって
is 演算子で TSingleForm クラスが生きているかどうかを確認すると nil を
代入する必要が無くなるのでよいと思います。
以下のようにしたらうまくいきました。
unit Unit1;
・
・
・
type
TForm1 = class(TForm)
・
・
・
public
procedure SingleFormNil;
end;
var
Form1: TForm1;
SingleForm: TSingleForm;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
if not Assigned(SingleForm) then
SingleForm := TSingleForm.Create(Application);
SingleForm.Show;
end;
procedure TForm1.SingleFormNil;
begin
SingleForm := nil;
end;
end.
そして、SingleFormのDestroyイベントで、SingleFormNilを実行しました。
書きながら思ったのですが、変数名をUnit1とUnit2で同じにしたのがマズかったのでしょうか…？
名前空間を使わない場合、
unit1のSingleFormは、unit1.SingleForm
unit2のSingleFormは、unit2.SingleForm
を指定したことになります。
たぶん、unit2側で、unit1.SingleForm := nil;とすれば動きますよ。
およよー
インスタンス変数の可視性の問題だったのですね？
unit2 の TSingleForm でデフォルトで宣言されているのを使うべきだと思いますよ。
二つあれば混乱するのは当たり前です。
jokさん
言われる通りです。unit1でもなぜかTSingleFormの変数宣言してるのがマズかったです。
基本がなってませんね、はぁ・・・
| ツイート |  |