Delphi XE5 for Android （四）

在Delphi中窗体与窗体之间的交互与调用非常简单，在FMX中这个优势得到了充分体现，先建立一个主窗体和一个需要调用的窗体：







在主窗体上放的按钮事件如下：

…

private
{ Private declarations }

//定义私有窗体对象
Ffrm: TfrmOtherFMX;

…

procedure TfrmMainFMX.Button1Click(Sender: TObject);
begin

//创建并显示窗体
if not Assigned(Ffrm) then
Ffrm := TfrmOtherFMX.Create(Self);
Ffrm.Show;
end;

在另外一个窗体的按钮事件中关闭：

procedure TfrmOtherFMX.Button1Click(Sender: TObject);
begin
Close;
end;

效果如下：







效果不错，并看出对汉字的支持挺好！

需要注意的是：FMX不再允许窗体的Modal模式，也就是说窗体都不能通过ShowModal方式显示。