名前 題名 ▼ Andyさん > しばらくぶりです。 > > ちょっとお聞きしたいのですが、左側にプレビュー右側にエディットボックス > にして、変更を加えて終了時に破棄確認を出すようにしましたが > procedure TInsatuSetF.FormClose(Sender: TObject; var Action: TCloseAction); > begin > inherited; > if (TeigiChk) and (tourokug.Enabled) then begin //定義設定時 > Application.NormalizeTopMosts; > if 7=Application.MessageBox('編集中のデータを登録せずにメイン画面に戻りますか','破棄確認',MB_YesNo) then begin > Action:=caNone; > Exit; > end; > end; > Action:=caFree; > InsatuSetF.Free; > end; > > クローズボタンをクリックするとメッセージが出ると同時にプレビューが > 消えてしまいます。 > このような場合どのように対処すればいいのでしょうか。 > GIF,JPEG,PNG画像ファイル及びLZH,ZIPファイルをアップロードできます.600 x 1200 ピクセルを超える画像は縮小表示されます(画像クリックで拡大表示). (上限122000(120k)バイト) 削除キー Link