Delphi fmx 切换窗体最大化

本文整理自网络，侵删。

 
unit uFormMain;

interface

uses
  System.SysUtils,
  System.Types,
  System.UITypes,
  System.Classes,
  System.Variants,
  FMX.Types,
  FMX.Controls,
  FMX.Forms,
  FMX.Graphics,
  FMX.Dialogs,
  FMX.StdCtrls,
  FMX.Objects,
  FMX.Layouts,
  FMX.Controls.Presentation,
  FMX.ScrollBox,
  FMX.Memo;

type
  TfrmFormMain = class(TForm)
    imgTImage: TImage;
    lytLayoutFormMain: TLayout;
    lytLayoutTImage: TLayout;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    spdbtnCloseForm: TSpeedButton;
    Label9: TLabel;
    lblClickMe: TLabel;
    procedure imgTImageClick(Sender: TObject);
    procedure FormResize(Sender: TObject);
    procedure spdbtnCloseFormClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmFormMain: TfrmFormMain;

implementation

uses
  System.TypInfo;

{$R *.fmx}

var
  i: Integer;

procedure TfrmFormMain.FormResize(Sender: TObject);
begin
  Label1.Text := Format('frmFormMain.BorderStyle = %s', [System.TypInfo.GetEnumName(System.TypeInfo(TFmxFormBorderStyle), Ord(frmFormMain.BorderStyle))]);
  Label2.Text := Format('frmFormMain.WindowState = %s', [System.TypInfo.GetEnumName(System.TypeInfo(TWindowState), Ord(frmFormMain.WindowState))]);
  Label3.Text := Format('Form.Height=%d X Form.Width=%d', [Self.Height, Self.Width]);
  Label4.Text := 'lytLayoutTImage.Position relative to lytLayoutFormMain';
  Label5.Text := Format('lytLayoutFormMain.Height=%f X lytLayoutFormMain.Width=%f', [lytLayoutFormMain.Height, lytLayoutFormMain.Width]);
  Label6.Text := Format('lytLayoutTImage.Position.Y=%f X lytLayoutTImage.Position.X=%f', [lytLayoutTImage.Position.Y, lytLayoutTImage.Position.X]);
  Label7.Text := Format('lytLayoutTImage.Height=%f X lytLayoutTImage.Width=%f', [lytLayoutTImage.Height, lytLayoutTImage.Width]);
  Label8.Text := Format('lytLayoutFormMain.Width - (lytLayoutTImage.Position.X + lytLayoutTImage.Width = %f', [lytLayoutFormMain.Width - (lytLayoutTImage.Position.X + lytLayoutTImage.Width)]);
  Label9.Text := Format('lytLayoutTImage.Align = %s', [System.TypInfo.GetEnumName(System.TypeInfo(TAlignLayout), Ord(lytLayoutTImage.Align))]);
end;

procedure TfrmFormMain.imgTImageClick(Sender: TObject);
begin
  if frmFormMain.WindowState = TWindowState.wsMaximized then
  begin
    frmFormMain.WindowState := TWindowState.wsNormal;
    lblClickMe.Text := 'Click Me!';
  end
  else
  begin
    frmFormMain.WindowState := TWindowState.wsMaximized;
    lblClickMe.Text := 'Click Me!'#13'Again'#13'Uh! I like...';
  end;
end;

procedure TfrmFormMain.spdbtnCloseFormClick(Sender: TObject);
begin
  Close;
end;

end.
 

相关阅读 >>

如何把 Delphi 自带的内存泄露写到日志

Delphi rtf文件转txt函数

Delphi 按f11程序全屏

Delphi 怎么将一个文件流转换成字符串？

Delphi 比较俩组mac地址

Delphi firedac,ado性能测试

Delphi memo 的当前行、当前列与当前字符

Delphi issameday、istoday - 判断是不是同一天、判断是不是今天

Delphi 根据关键字取关键词以后的字符串

Delphi -- gdi+ Delphi如何让 tgpimage 直接从流中加载图片

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi fmx 切换窗体最大化