标签：
使用 ShowModal ：
procedure TForm1.Button1Click(Sender: TObject); begin Form2 := TForm2.Create(Self); Form2.ShowModal(procedure(ModalResult : TModalResult) begin if ModalResult = mrOK then // do something here end); end;
ps. 在 XE8 之前的版本，对于使用多 Form 实在不敢领教，问题不外乎创建慢，耗记忆体等问题，但到了 XE8 后的版本，此方面改进了不少，可以放心的使用了。
标签：
原文地址：http://www.cnblogs.com/onechen/p/5284892.html
