Hallo,
ich möchte verhindern, das ein Benutzer die Anwendung mit der
Tastenkombi ALT+F4 beendet, bzw. das nach dem betätigen der
Tastenkombi noch eine Abfrage kommt.
Bisher konnte ich das folgendermaßen lösen, doch unter Firemonkey, XE5
bekomme ich das so nicht hin, da das Ereignis OnMessage nicht
mehr vorhanden ist.
Danke.
public
procedure AppMessage(var Msg: TMSG; var HAndled: Boolean);
end;
{...}
implementation
{...}
procedure TForm1.FormCreate(Sender: TObject);
begin
// set your applications message handler to your new one
Application.OnMessage := AppMessage;
end;
procedure TForm1.AppMessage(var Msg: TMSG; var Handled: Boolean);
begin
// let your application
handle all messages initially
Handled := False;
case Msg.Message of
WM_SYSKEYDOWN:
if Msg.wParam = VK_F4 then
Handled := True; // don't allow ALT-F4
end;
end;