日韩黑丝制服一区视频播放|日韩欧美人妻丝袜视频在线观看|九九影院一级蜜桃|亚洲中文在线导航|青草草视频在线观看|婷婷五月色伊人网站|日本一区二区在线|国产AV一二三四区毛片|正在播放久草视频|亚洲色图精品一区

分享

Delphi XE2 之 FireMonkey

 山不轉(zhuǎn)水轉(zhuǎn)轉(zhuǎn) 2012-03-10

Delphi XE2 的 FireMonkey 是跨平臺(tái)的, 暫時(shí)只準(zhǔn)備看看它在 Windows 下(我是 32 位 Win7)的應(yīng)用情況. 很新的東西, 相信有了它, 以后的界面將會(huì)更靈活、漂亮, 也會(huì)淘汰掉諸多皮膚、透明、圖像等第三方組件, 但不知和 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 對(duì)應(yīng)的大多數(shù)構(gòu)件, 但基本還是根植于早期的 TComponent, 應(yīng)該屬于 VCL 的深度擴(kuò)展. 在 Windows 下創(chuàng)建 FireMonkey 工程可建立 FireMonkey HD Application(2D) 或 FireMonkey 3D Application, 然后可隨意添加 FireMonkey HD Form 或 FireMonkey 3D Form. 其窗體文件的后綴是 fmx 了.


在新 FireMonkey HD Application 下簡單測(cè)試:


 


雙擊代碼全選
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 單元; 底層實(shí)現(xiàn)不同但用法一樣, 太好了
<B>end</B>;
  
<B>end</B>.

    本站是提供個(gè)人知識(shí)管理的網(wǎng)絡(luò)存儲(chǔ)空間,所有內(nèi)容均由用戶發(fā)布,不代表本站觀點(diǎn)。請(qǐng)注意甄別內(nèi)容中的聯(lián)系方式、誘導(dǎo)購買等信息,謹(jǐn)防詐騙。如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請(qǐng)點(diǎn)擊一鍵舉報(bào)。
    轉(zhuǎn)藏 分享 獻(xiàn)花(0

    0條評(píng)論

    發(fā)表

    請(qǐng)遵守用戶 評(píng)論公約

    類似文章 更多