0

Android アプリを Delphi XE6 の戻るボタンに反応させるにはどうすればよいですか?

    uses
  FMX.Platform, FMX.VirtualKeyboard;

procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkHardwareBack then
  begin
     // Back button pressed...
        Key := 0;
  end;
end;

上記のコードは機能しません

4

0 に答える 0