为Android做一个ShowModal窗口

大家知道，用Delphi实现一个Form，并用ShowModal显示出来，是非阻塞的，如果我们需要类似阻塞的效果，该如何实现呢？

1.先建一个Form，跟通常的情况一样。

2.为Form实现具体的内容，这按你的需要了。

3.在窗口的单元中实现一个方法，用来显示这个窗口：

implementation

{$R *.fmx}
//调用方法：
//   ShowPrivacyForm(
//    procedure(AResult: TModalResult)
//    begin
//
//    end);

var
  PrivacyForm: TPrivacyForm;//声明一个私有变量

procedure ShowPrivacyForm(AFormResult: TProc<TModalResult>);
begin
  if not assigned(PrivacyForm) then
  begin
    PrivacyForm := TPrivacyForm.Create(Application);
  end;
  PrivacyForm.ShowModal(
    procedure(AResult: TModalResult)
    begin
      AFormResult(AResult);//这里执行回调
      TTask.Run(
                procedure
                begin
                  TThread.Synchronize(nil,
                    procedure
                    begin
                      PrivacyForm.DisposeOf;//释放这个窗口
                      PrivacyForm := nil;
                    end);
                end);
    end);
end;

4.显示这个窗口，首先引用Form所在的单元，然后调用显示窗口的方法ShowPrivacyForm：

        ShowPrivacyForm(
                        procedure(AResult: TModalResult)
                        begin
                           if AResult=mrCancel then
                           begin
                               Close;
                           end
                           else
                           begin
                               //用户点击了确定接钮 
                           end;
                        end);

5.细节处理，接管Android手机的返回键，当用户按返回键，相当于点击取消操作：

procedure TPrivacyForm.FormKeyUp(Sender: TObject; var Key: Word;
    var KeyChar: Char; Shift: TShiftState);
begin
  if Key = vkHardwareBack then
       self.ModalResult := mrCancel;
end;

好了，一个完美的ShowModal窗口实现了！

核心代码引用专家的ChinaCock组件包中的Demo，这里表示感谢！

Delphi 10.4.2测试通过。

标签：begin,end,PrivacyForm,ShowModal,窗口,Android,AResult,procedure
来源： https://www.cnblogs.com/kinglandsoft/p/14878503.html