Delphi XE2 的 FireMonkey 是跨平臺的, 暫時只準(zhǔn)備看看它在 Windows 下(我是 32 位 Win7)的應(yīng)用情況. 很新的東西, 相信有了它, 以后的界面將會更靈活、漂亮, 也會淘汰掉諸多皮膚、透明、圖像等第三方組件, 但不知和 Win8 的 WinRT 有無關(guān)聯(lián).
為了它, 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 相關(guān)的單元有:
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
FireMonkey 自成體系, 有自己的 TApplication、TControl 等和 VCL 對應(yīng)的大多數(shù)構(gòu)件, 但基本還是根植于早期的 TComponent, 應(yīng)該屬于 VCL 的深度擴展. 在 Windows 下創(chuàng)建 FireMonkey 工程可建立 FireMonkey HD Application(2D) 或 FireMonkey 3D Application, 然后可隨意添加 FireMonkey HD Form 或 FireMonkey 3D Form. 其窗體文件的后綴是 fmx 了.
在新 FireMonkey HD Application 下簡單測試:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 | <B>unit</B> Unit1; <B>interface</B> <B>uses</B> System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs; <B>type</B> TForm1 = <B>class</B>(TForm) Button1: TButton; //現(xiàn)在的 TButton 來自 FMX.Controls 單元 <B>procedure</B> Button1Click(Sender: TObject); <B>private</B> { Private declarations } <B>public</B> { Public declarations } <B>end</B>; <B>var</B> Form1: TForm1; <B>implementation</B> {$R *.fmx} <B>procedure</B> TForm1.Button1Click(Sender: TObject); <B>begin</B> ShowMessage('Hello FireMonkey!'); //現(xiàn)在 ShowMessage 方法來自 FMX.Dialogs 單元; 底層實現(xiàn)不同但用法一樣, 太好了 <B>end</B>; <B>end</B>. |
