名前
題名
▼ りおりおさん > つづき > > -------------------- > > unit DllMain; > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls, DllUnit2; > > type > TDllForm = class(TForm) > Button1: TButton; > procedure Button1Click(Sender: TObject); > procedure FormClose(Sender: TObject; var Action: TCloseAction); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > DllForm: TDllForm; > > implementation > > {$R *.dfm} > > procedure TDllForm.Button1Click(Sender: TObject); > begin > Close; > end; > > procedure TDllForm.FormClose(Sender: TObject; var Action: TCloseAction); > begin > Action := caFree; > if Assigned(DllSubForm) then DllSubForm.Release; > end; > > end. > > -------------------------- > > unit DllUnit2; > > interface > > uses > Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, > Dialogs, StdCtrls; > > type > TDllSubForm = class(TForm) > Button1: TButton; > procedure Button1Click(Sender: TObject); > private > { Private 宣言 } > public > { Public 宣言 } > end; > > var > DllSubForm: TDllSubForm; > > implementation > > {$R *.dfm} > > uses > DllMain; > > procedure TDllSubForm.Button1Click(Sender: TObject); > begin > DllForm.Close; > end; > > end. > > -------------------- > > これで DllSubForm の Button1Click で両方閉じます。
GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.
600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示).
(上限122000(120k)バイト)

削除キー Link