1
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
Shift: TShiftState);
begin
if Key = vkHardwareBack then begin
Key := 0;
Form1.WindowState := TWindowState.wsMinimized; // Also tried Application.MainForm
end;
end;
但是当你遇到第一次在屏幕变黑色,当你到了第二次的应用程序关闭。如何避免这种情况?
好的问的问题!显示键盘时,您只是错过了试用代码中的一个额外条件。 – Victoria
@Victoria我用这个代码作为例子,当按下vkHardwareBack时,实际的代码有几个条件。 –