我正在努力研究为什么我的模态窗口无法关闭!使用的是Delphi XE-5和FireMonkey移动应用程序(Android),我遵循了此信息:在FireMonkey移动应用中显示模态对话框。为演示目的,我创建了一个新的Firemonkey Mobile Delphi应用程序并添加了一个辅助的Firemonkey Mobile表单。从主表单中,我使用了文章中的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
Form2: TForm2;
begin
Form2 := TForm2.Create(nil);
Form2.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
//
end;
Form2.DisposeOf;
end);
end;
在次要表单中,我将“确定”和“取消”按钮的modalresult属性分别指定为“mrCancel”和“mrOK”。然而,当模态对话框显示时,两个按钮都无法使对话框关闭。我甚至尝试添加onClick事件并通过代码分配modalresult。为什么表单不会关闭?我想我需要确保我已经做了一切正确的事情,可能是我的PHONE(设备)的问题。
ShowModal
在Windows意义上真的不是模态的。 - Ken White