procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
if Key = vkHardwareBack then
begin
// handle it
Key := 0;
end;
end;
Click over and get the full code snippet for Android.
procedure TForm1.FormKeyUp(Sender: TObject; var Key: Word; var KeyChar: Char; Shift: TShiftState);
begin
if Key = vkHardwareBack then
begin
// handle it
Key := 0;
end;
end;
Click over and get the full code snippet for Android.