ALT+F4でとじないようにするには？

解決

555 2005-05-24 20:57:37 No: 15031

[ALT] + [F4]でフォームを閉じないようにしたいのですが、
どなたかご存知ありませんか？フォームのイベントのonDestroy
またはonCloseを使用してそんなことはできないものでしょうか？
皆さんのお力、よろしくおねがいします！！

deldel 2005-05-24 21:19:53 No: 15032

以下に書いていました
http://www2.big.or.jp/~osamu/Delphi/delphi-browse.cgi?index=060766

555 2005-05-24 22:22:08 No: 15033

onDestroyまたはonCloseを使用したものはありませんか？

にしの 2005-05-24 22:46:52 No: 15034

OnCloseQueryというイベントがあるのですから、こちらでチェックすべきでは？
無理矢理OnCloseイベントで処理するならば

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  if  ((GetKeyState(VK_MENU) and $8000) <> 0)
  and ((GetKeyState(VK_F4) and $8000) <> 0) then
  begin
    raise Exception.Create('閉じることができません');
  end;
end;

こんな感じでひとまず出来ます。
# Del7Pro, WinXP Proで確認

555 2005-05-24 23:04:33 No: 15035

ありがとうございます、にしのさん！！
出来ました！！