Советы по Delphi


              

Можно ли запретить Alt-F4, чтобы предотвратить закрытие формы?


Своим опытом делится Олег Кулабухов:

    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;

[001834]



Содержание  Назад  Вперед