使用Delphi XE8在移动设备中将焦点从一个组件移动到另一个组件

Question

我正在使用Delphi XE8开发Android移动应用程序，请帮我完成以下实施。

在表单中，我有3个组件，其顺序如下 1. TEdit（edtValue1），2。TEdit（edtValue2），3。TComboBox（cbxValue1）

表格打开后我做了：

edtValue.SetFocus;

我怀疑是在edtValue1中输入一些值后，然后如何通过在Android手机中按键盘中的回车键将焦点转移到edtValue2。另外如果我需要在edtValue2之后将焦点转移到cbxValue1，那么我该如何处理呢？请帮帮我。提前谢谢。

Answer 1

这是一个适用于控件的代码，您已经提到过：

procedure TForm1.FormCreate(Sender: TObject);
begin
  edtValue1.SetFocus;
end;

procedure TForm1.edtValue1KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  if Key = 13 then
    edtValue2.SetFocus;
end;

procedure TForm1.edtValue2KeyUp(Sender: TObject; var Key: Word; var KeyChar: Char;
  Shift: TShiftState);
begin
  MouseDown(TMouseButton.mbLeft, [], cbxValue1.AbsoluteRect.CenterPoint.X, cbxValue1.AbsoluteRect.CenterPoint.Y);
end;

可能有点讨厌，但它有很好的探索线索。