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

解決

555 2005-05-24 11:57:37 No: 15031 IP: 192.*.*.*

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

編集削除

deldel 2005-05-24 12:19:53 No: 15032 IP: 192.*.*.*

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

編集削除

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

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

編集削除

にしの 2005-05-24 13: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 14:04:33 No: 15035 IP: 192.*.*.*

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

編集削除