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