Delphi XE2 之 FireMonkey 入門(45) – 結題與問題

很喜歡 FMX 的一些新控制項, 如: TExpander、TArcDial、TComboTrackBar、TPathLabel 等等, 沒時間繼續學習了.

對 FMX 的整體感覺: 還不成熟, 但肯定有前景; 它的構架師有遠見、了不起, 很難估計他開啟的是多大一扇門!

本將繼續學習:
1、TCanvas、TBrush、TApplication;
2、FMX 中的 GDI+、D2D、DirectX;
3、FMX 3D;
4、XE2 中新增的其他內容(譬如新增的 TZipFile 類, 已測試過、下帖附上).

又要忙其它事情了, 但願能儘早有時間和心情回來繼續學習.

正在學習但沒有學完的東西是關於拖放的; 現在的 FMX 表單可以直接響應拖放了, 譬如: 拖拽文字檔到表單讓 TMemo 開啟.

unit Unit1;interfaceuses  System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,  FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs, FMX.Layouts, FMX.Memo;type  TForm1 = class(TForm)    Memo1: TMemo; //先在空白表單上放 Memo1  private  public    { 覆蓋這個兩個方法 }    procedure DragOver(const Data: TDragObject; const Point: TPointF; var Accept: Boolean); override;    procedure DragDrop(const Data: TDragObject; const Point: TPointF); override;  end;var  Form1: TForm1;implementation{$R *.fmx}{ TForm1 }procedure TForm1.DragOver(const Data: TDragObject; const Point: TPointF; var Accept: Boolean);begin  inherited;  { 如果拖拽的是檔案, 且是 *.txt 檔案, 則讓 Accept := True 以讓後面的 DragDrop 事件響應 }  Accept := (Length(Data.Files) > 0) and (CompareText(ExtractFileExt(Data.Files[0]), '.txt') = 0);end;procedure TForm1.DragDrop(const Data: TDragObject; const Point: TPointF);begin  inherited;  Memo1.Lines.LoadFromFile(Data.Files[0]);end;end.

來不及學習的問題: TDropTarget 應該是直接和拖放相關的, TImageControl 中也有相關拖放的代碼...

發現不大對頭, 估計是源碼有問題; 但願誰學到了, 多少給我簡介下.