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 tgpimage 把图像转存为其他格式

Delphi 精炼的数字转换人民币大写转换代码

Delphi tstreamwriter快速写入文件

Delphi idhttp.get方法

Delphi 反转字符串方法2

Delphi 获取当前系统版本号

Delphi遍历所有控件

Delphi webbrowser中获取input表单值

Delphi for android 获取手机号

Delphi 2009 的反射单元(objauto):

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

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