Delphi XE2의 FireMonkey 시작하기(1)

Delphi XE2의Fire Monkey는 크로스플랫폼으로 당분간 윈도에서 (나는 32비트 윈7) 응용 상황만 볼 준비가 되어 있다.
새로운 것이 생겨서 앞으로 인터페이스가 더욱 유연하고 아름다울 것이며 피부, 투명, 이미지 등 제3자 구성 요소도 많이 도태될 것이라고 믿지만 윈8의 윈터와 관련이 있는지 모르겠다.
Delphi XE2의 여러 셀에는 다음과 같은 접두어가 붙습니다.
Bde、Data、Datasnap、FMX、IB、Macapi、Posix、Soap、System、System.Bindings、System.Generics、System.Internal、System.Mac、System.Win、Vcl、Winapi、Xml...
그래도 좋아, 단원 유형이 한 장면 뚜렷해.FireMonkey와 관련된 유닛은 다음과 같습니다.
FMX.Ani.pas
FMX.ASE.Importer.pas
FMX.ASE.Lexer.pas
FMX.ASE.Model.pas
FMX.Canvas.D2D.pas
FMX.Canvas.GDIP.pas
FMX.Canvas.Mac.pas
FMX.Colors.pas
FMX.Consts.pas
FMX.Context.DX9.pas
FMX.Context.Mac.pas
FMX.Controls.pas
FMX.DAE.Importer.pas
FMX.DAE.Model.pas
FMX.DAE.Schema.pas
FMX.Dialogs.pas
FMX.Edit.pas
FMX.Effects.pas
FMX.ExtCtrls.pas
FMX.Filter.Effects.pas
FMX.Filter.pas
FMX.FilterCatBlur.pas
FMX.FilterCatColor.pas
FMX.FilterCatColorAdjust.pas
FMX.FilterCatComposite.pas
FMX.FilterCatDistortion.pas
FMX.FilterCatGenerator.pas
FMX.FilterCatGeometry.pas
FMX.FilterCatStyle.pas
FMX.FilterCatTiles.pas
FMX.FilterCatTransition.pas
FMX.Forms.pas
FMX.Grid.pas
FMX.Import.pas
FMX.Layers3D.pas
FMX.Layouts.pas
FMX.ListBox.pas
FMX.Memo.pas
FMX.Menus.pas
FMX.OBJ.Importer.pas
FMX.OBJ.Model.pas
FMX.Objects.pas
FMX.Objects3D.pas
FMX.Platform.Mac.pas
FMX.Platform.pas
FMX.Platform.Win.pas
FMX.Printer.Mac.pas
FMX.Printer.pas
FMX.Printer.Win.pas
FMX.TabControl.pas
FMX.TreeView.pas
FMX.Types.pas
FMX.Types3D.pas
FMX.Video.Mac.pas
FMX.Video.pas
FMX.Video.Win.pas
Monkey는 자체적으로 체계를 형성하여 자신의 TApplication, Tcontrol 등과 VCL에 대응하는 대부분의 부품을 가지고 있지만 기본적으로 초기의 Tcomponent에 뿌리를 두고 VCL의 깊이 있는 확장에 속해야 한다.
Windows에서 FireMonkey 프로젝트를 만들면 FireMonkey HD Application(2D) 또는 FireMonkey 3D Application이 만들어집니다.
그런 다음 FireMonkey HD Form 또는 FireMonkey 3D Form을 원하는 대로 추가할 수 있습니다.그 창 파일의 접미사는 fmx입니다.
새로운 FireMonkey HD Application에서 간단한 테스트를 수행합니다.

unit Unit1;

interface

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs;

type
  TForm1 = class(TForm)
    Button1: TButton; //    TButton    FMX.Controls   
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.fmx}

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage('Hello FireMonkey!'); //   ShowMessage      FMX.Dialogs   ;            ,    
end;

end.