名前 題名 ▼ Syakeさん > マスターこんにちは > > めっきり暖かくなりまして、山々は新緑の季節です。 > ですが、新葉は毒素を多く含むと言われます。 > (組織が軟らかいうちは、害虫から身を守るためらしい) > この季節、山歩きなどをされる方は、かぶれなどに気をつけましょう。 > > おっと、本題・・・・ > > //------------------------------------------------------- > Unit1 //(UnitFile) > > ・・・・ > frmMain := TfrmMain.Create(App・・・); > try > frmMain.ShowModal; > finally > if frmSub <> nil then > begin > frmSub.Release; > end; > frmMain.Release; > end; > > //------------------------------------------------------ > Unit2 //(frmMain) > > //・・・Button1のクリック > frmSub := TfrmSub.Create(App・・・); > frmSub.Show; > frmMain.Hide; > > //OnShowイベント > if frmSub <> nil then > begin > frmSub.Release; > frmSub := nil; > end; > > //---------------------------------------------------- > Unit3 //(frmSub) > > //・・・Button1のクリック > Close; > > //OnCloseイベント > if bFlg = False then > begin > frmMain.Show;//呼び出し元で破棄される > end else begin > frmMain.Close;//呼び出し元では破棄されない(Unit1で破棄) > end; > > ちなみにDLLです。 > 今更のようですが、このプログラムは有効なのでしょうか？ > ①生成前なら必ずオブジェクトの参照はnilである。 > ②破棄してもオブジェクトの参照はnilにはならない。 > ③Releaseの後ならオブジェクトの参照をnilにしても一向に構わない。 > などと、勝手な推論でできた記述です。 > (Flgで判断させるのも面倒なので・・・) > > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link