Delphi TForm OnCreateが複数回呼び出される

Question

私はこの問題をうまく説明できることを願っています！

私はReWireオーディオデバイスをDelphi .dllとして実装しようとしています。 ReWireが何であるかわからない場合は、心配しないでください。重要なのは、私のコードが.dllにコンパイルされ、ReWireシステムから.dllへの呼び出しが表示され、表示が開かれているかどうかを確認し、もう一度閉じます。私が起動するコールを取得すると

、私は次の操作を行います

if not Assigned(form) then 
    form := TMyForm.Create(nil); 
    form.Show; 

どこformは私のDelphiのライブラリの内部グローバル変数です（多分問題？）。私はMyFormのOnCreateイベントを利用して、私が働きたいものの配列を準備するような面白いことをしました。

これまでのところすべてが有効です。私のフォームには、TOpenDialogを開く小さなボタンがあります。そのダイアログが閉じるとすぐに、何とかOnCreateイベントが私のフォームで再び発生していることがわかりました！

私はOnDestroyが呼び出されていないことを確認しました。なぜOnCreateが再び呼び出されるのかわかりません。

残念ながら私は、関連する情報は本当にわからないんだけど、ここでの呼び出しは（フォームが最初に設定されている）最初の頃スタックです：予想通り

を、ReWireのが作っています私の.dllを呼び出してPanelアプリケーションを起動して、フォームを作成します。素晴らしい、ものはよく見ている。

私のフォームの中で、少しダイアログを開いてファイルを選択し、いくつかの操作を行います。左のフィールドのうち、OnCreateが再び呼び出され、ここでの呼び出しはその時間を積み重ねるですされています

それは呼び出しのクレイジーパーティです！私のアプリケーションをテストするために使用しているReWireホストのReaper（Reaperの下）は、私のコードではないので、スタックトレースの内部で何が起こっているのか分かりません。突然、イベントはちょうど私がそれがすべきだと思わないときに呼び出されます。OnDestroyは呼び出されていないからです。

私は考えることができる唯一の他の重要なことは、私はSenderのアドレスをプリントアウトした場合、それは異なる各時間ですので、それが何らかの形で再び作成さか何かが、私は私だけ呼んでいることをチェックしましたばかりだということです一度MyForm.Createを実行します。

どのようにこのようなことが起こるかについてのアイデアはありますか？

Answer 1

最初のスタックトレースでは、TCustomForm.Create()を呼び出す前にOnCreateが呼び出されますが、これは正しい動作です。 2番目のスタックトレースでは、代わりにTObject.Create()へのコールによってOnCreateコールが先行されますが、これは正しく動作しません。あなたのボタンOnClickイベントハンドラの何かが、悪いVMTを持つオブジェクトを構築しているか、そうでなければメモリが一般に壊れていて、ちょうどTFormクラスが占有しているコードに悪いジャンプを引き起こしていると思うようになります。いずれにしても、OnClickロジックでバグを再確認してください。

Answer 2

フォーム変数をnilに設定する場所を確認します。それは、それが指しているフォームを解放せずにnilに設定されている可能性があります。そのため、次に起動コードを呼び出すと、フォームの別のインスタンスが作成されます。