通常在VCL中,要显示一个子窗口,使用下面的代码:
procedure TForm1.Button1Click(Sender: TObject);
var
ChildForm: TChildForm;
begin
ChildForm := TChildForm.Create(nil);
try
if ChildForm.ShowModal = mrOK then
begin
// 要做的动作
end;
finally
ChildForm.Free;
end;
end;
但是到了Firemonkey中,这样的表达会有问题。
1. Free并不会释放对象,它只是减少引用的次数。要强制释放对象,需要调用DisposeOf。
2. Firemonkey中没有模式窗口的概念,上面的代码并不能取得我们想要的效果。
那么在FireMokey中,应该如何做呢?
procedure TForm1.Button1Click(Sender: TObject);
var
ChildForm: TChildForm;
begin
ChildForm := TChildForm.Create(nil);
ChildForm.ShowModal(procedure(ModalResult: TModalResult)
begin
if ModalResult = mrOK then
begin
// 要做的动作
end;
end);
end;
那么如何释放子窗口呢?
procedure TChildForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := TCloseAction.caFree;
end;