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

解決

555 2005-05-24 20:57:37 No: 15031 IP: [192.*.*.*]

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

編集削除

deldel 2005-05-24 21:19:53 No: 15032 IP: [192.*.*.*]

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

編集削除

555 2005-05-24 22:22:08 No: 15033 IP: [192.*.*.*]

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

編集削除

にしの 2005-05-24 22:46:52 No: 15034 IP: [192.*.*.*]

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 IP: [192.*.*.*]

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

編集削除