如何在Android上的Delphi中以编程方式关闭TimeEdit Picker对话框

Question

我是编程新手，正在尝试构建一个通过本机TimeEdit选择时间的应用。现在，如果用户没有在特定时间内选择时间，则Picker窗口应该自行关闭。

我使用的是Maguay MX安卓设备。

我尝试过并认为是正确的程序： TimeEdit.ClosePicker（适用于Windows但不适用于Android）。 PickerService.CloseAllPickers（也适用于Windows但不适用于Android）。

我希望你们能帮助我。

编辑： 没有可见的错误消息，也没有在Logcat中。

等待时间由定时器进行。一旦Picker打开TimeEdit.OpenPicker（正常），Timer等待x秒然后调用TimeEdit.ClosePicker。

示例代码：

procedure TForm4.Button1Click(Sender: TObject);
begin
  if Timer.Enabled = False then
    Timer.Enabled:= True;
  TimeEdit.OpenPicker;
end;


procedure TForm4.TimerTimer(Sender: TObject);
begin
  Timer.Enabled:= False;
  TimeEdit.ClosePicker;
  if TimeEdit.IsPickerOpened = False then
    ShowMessage('Closed')
  else ShowMessage('Open');
end;

在Windows上，此代码关闭Picker对话框并显示消息Closed。 在Android上，Picker Dialog使用此代码保持打开状态，并显示消息Closed。