境界線のアイコンからクローズフォームを検出するにはどうすればよいですか？

Question

フォームに[キャンセル]と[OK]ボタンがあります。彼らは何かをしてから、近くのフォームを呼び出します。フォームの[x]ボタンをクリックしてCancelclickを呼び出すにはどうすればよいですか？

Answer 1

フォームがモーダルで表示されている場合は、ModalResultの値をテストするだけです。 mrCancelの値は、十字がクリックされたことを示します。

私は、あなたのボタンがModalResultプロパティを使用してフォームを閉じるように指示する傾向があります。 OKボタンのModalResultをmrOKに設定し、キャンセルボタンの設定をmrCancelに設定します。

Answer 2

フォームのOnCloseQueryイベントを使用できます。あなたのボタンがそのmodalresultプロパティが設定されている場合は

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); 
begin 
    CanClose:= true; //or not 
    ButtonCancelClick(Self); 
end; 

、彼らはまた、OnCloseQueryを呼び出しますと、このコードは動作しません。その場合は、Davidの答えを使用してください。

Answer 3

その後、私が持っているものにもかかわらず、ウィンドウ枠の右上にある閉じるアイコンをクリックするとOnCloseQuery問い合わせが呼び出されない

procedure TForm1.WMSYSCommand(var MSG: TWMSysCommand); 
begin 
    if MSG.CmdType = SC_CLOSE then 
    begin 
    //Closing from border icon 
    end; 
    inherited; 
end; 

Answer 4

メソッドを追加するには、フォームのパブリック宣言

procedure WMSysCommand(var MSG: TWMSysCommand); message WM_SYSCOMMAND; 

にこれを追加上記に請求されている。 D2010を使用します。 FormCloseも呼び出されません。 Alt F4の場合、OnCloseQueryが呼び出され、CanCloseがtrueの場合はFormCloseが呼び出されます。