この発言は
#00099　Athena          さんのアプリの終了確認
に対するコメントです



Athena さん、こんにちは。謎の全知師です。

>procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

この確認はOnCloseQueryイベントでやった方が良いと思います。
OnCloseでもできますが、イベントの意味合いとしてはこっちの方が正しい(^^;)

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose : Boolean);
Begin
var M : String;
begin
     M := '終了してもよろしいですか？';
     CanClose := MessageDlg(M, mtConfirmation,[mbYes, mbNo], 0) = mrYes;
end;

                                 97/10/25(土) 10:57 謎の全知師(QZE10125)

Original document by 謎の全知師      氏 ID:(QZE10125)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。