Главная страница | назад





Article #16343: Disabling ALT-F4 to prevent form closing

 Question and Answer Database

FAQ1343D.txt   Disabling ALT-F4 to prevent form closing
Category   :Object Pascal
Platform    :All
Product    :All 32 bit  

Question:
How can I disable the Alt+F4 key combination to keep my form
from closing?

Answer:
If the intent is to make sure the user doesn't exit prematurely
before performing some required task, use the OnCloseQuery event
of the form and set the CanClose property appropriately.

If you need to override the default behavior for normal form 
handling and prevent the Alt+F4 keystrokes from being responded
to, then set the forms KeyPreview property to true and
trap the key during the forms KeyDown event.

Example:

procedure TForm1.FormCreate(Sender: TObject);
begin
  KeyPreview := true;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
  if ((ssAlt in Shift) and (Key = VK_F4)) then
    Key := 0;
end;

7/16/98 4:31:28 PM
 

Last Modified: 01-SEP-99