私のDelphiアプリケーションでは、編集中のファイルに加えられた変更を保存するためにメインフォームから呼び出されるカスタムのYes、No、Cancelダイアログがあります。これは通常messageDlg()によって達成されるであろうが、私はルックスをカスタマイズしたのが、この対話を望んでいたので、デフォルトでは、フォームがエスケープキーを押しに反応する、ということです私は case myDial
私はいつでもEscキーを押すことで現在のフォームを閉じるために多くのことを、これを使用している: procedure TSomeForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key = #27 then close;
end;
この動作はTFormはのために定義されています。フォームのKeyPreviewプ