Prevent actions that are triggered by key presses

Frage / Problem

How can I prevent actions that are caused by key presses, e.g. a FullRefresh by F5?

Antwort / Lösung

Use the OnKeyDown event like this and overwrite the Key value:

procedure TForm1.MyistKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   // suppress a FullRefresh by F5
   if (Key = VK_F5) then
      Key := 0;
end;