Отловить нажатие Alt+F4???
Доброго времени суток!
Не могу отловить нажатие Alt+F4, необходимо, чтобы программа не закрывалась по Alt+F4. Использовал такой код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
MessageBeep(0); Key := 0;
end;
end;
, нашел в одном из FAQ'ов, но он не работает :(. Вариант OnCloseQuery => CanClose:=False не подходит, т.к. при завершении винды программа не закрывается. Что посоветуете?
Не могу отловить нажатие Alt+F4, необходимо, чтобы программа не закрывалась по Alt+F4. Использовал такой код:
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
if (Key = VK_F4) and (ssAlt in Shift) then begin
MessageBeep(0); Key := 0;
end;
end;
, нашел в одном из FAQ'ов, но он не работает :(. Вариант OnCloseQuery => CanClose:=False не подходит, т.к. при завершении винды программа не закрывается. Что посоветуете?
Цитата:
Originally posted by AnD1
Доброго времени суток!
Не могу отловить нажатие Alt+F4, необходимо, чтобы программа не закрывалась по Alt+F4. Использовал такой код:
Доброго времени суток!
Не могу отловить нажатие Alt+F4, необходимо, чтобы программа не закрывалась по Alt+F4. Использовал такой код:
У класса TForm или TCustomForm есть реакция на событие Windows на закрытие окна. Так вот перекрываеш этот метод да и всё.
Цитата:
Originally posted by misha_turist
У класса TForm или TCustomForm есть реакция на событие Windows на закрытие окна. Так вот перекрываеш этот метод да и всё.
У класса TForm или TCustomForm есть реакция на событие Windows на закрытие окна. Так вот перекрываеш этот метод да и всё.
У любой формы выбери событие OnClose:
procedure fmMyForm.FormClose(Sender: TObject; var Action: TCloseAction);
Прочитай хелп по TCloseAction.
Спасибо, разобрался.