Delphi xe10 FMX 按钮 窗口放大缩小

Delphi xe10 FMX 按钮 窗口放大缩小

 

一个窗口放大，后再点击就还原窗口的代码

procedure Tufrm_min.btn1Click(Sender: TObject);
begin
  case Self.WindowState of
    TWindowState.wsNormal:
      Self.WindowState := TWindowState.wsMaximized;
    TWindowState.wsMinimized:
      ;
    TWindowState.wsMaximized:
      Self.WindowState := TWindowState.wsNormal;
  end;

end;