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方式显示。