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





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