其他

RotationAngle、RotationCenter、Opacity 屬性繼承自 TControl(FMX.Types), 這些新屬性成了控制項的準系統.先在 HD 表單上添加 TRectangle 和兩個按鈕...procedure TForm1.FormCreate(Sender: TObject);begin Rectangle1.Width := 100; Rectangle1.Height := 100; Rectangle1.Fill.Color := claYellow;

它們都是繼承自 TShape 類, 共同擁有如下屬性:Fill : TBrush; //填充Stroke : TBrush; //邊線(畫筆)StrokeThickness : Single; //厚度(邊線寬度)StrokeCap : TStrokeCap; //線帽樣式, TStrokeCap (枚舉)類型StrokeDash : TStrokeDash; //虛線樣式,

剛開啟 XE2 時, 就從 Tool Palette 視窗的 Effects 組中發現洋洋洒洒的六十多個特效...每個特效分別對應一個類, 分別來自 FMX.Effects 和 FMX.Filter.Effects 單元.FMX.Effects 中的特效屬於附加特效, FMX.Filter.Effects 中的特效只是某種濾鏡效果; 它們都是濾鏡的一種快捷應用.每個特效有不同的參數; 因都是直接或間接地繼承與 FMX.Types 中的 TEffect, 也都擁有 Trigger、Enabled、

在 HD 表單上添加一個 TAniIndicator, 修改其 Enabled 屬性為 True, 動畫完成了.這是最簡單的動畫相關的控制項了, 只有兩個值得注意的屬性:Enabled: Boolean; //Style: TAniIndicatorStyle; //TAniIndicatorStyle = (aiLinear, aiCircular);{例}AniIndicator1.Style :=

TText 也是從 TShape(TControl -> TShape)繼承; 而與之類似的 TLabel 的繼承序列是 TControl -> TStyledControl -> TTextControl -> TLabel.TText 的主要成員:{ 屬性 }Text : string; //常值內容Font : TFont; //字型Fill : TBrush;

一個小小的 TLang 類, 實現多語言切換, 挺好的. 它的工作思路是:1、首先通過 AddLang('語言代碼') 添加語言類別, 如: AddLang('en')、AddLang('cn').2、每個語言代碼對應一個 TStrings 列表, 擷取方式如: LangStr['en']、LangStr['cn'].3、可以手動填充這些資料、可以通過 LoadFromFile() 方法載入之前 SaveToFile()

"冷公子" 同學需要在 TStringGrid 中通過顏色顯示大量資訊, 給出的方案是: 建立一個對應的顏色數組.參考代碼:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids, StdCtrls;type TForm1 = class(TForm) StringGrid1: TStringGrid;

TAction // TEditCut、TEditCopy、TEditPaste、TEditSelectAll、TEditUndo、TEditDelete、TEditSelectAll、TEditSelectAllTWindowAction // TWindowClose、TWindowCascade、TWindowTileHorizontal、TWindowTileVertical、TWindowMinimizeAll、TWindowArrangeTHelpAction //

//不少滑鼠與鍵盤事件用到了集合參數: Shift: TShiftState;TShiftState = set of (ssShift, ssAlt, ssCtrl, ssLeft, ssRight, ssMiddle, ssDouble, ssTouch, ssPen);{判斷是否按下了 Ctrl 鍵: 方法一}procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);begin

問題來源: http://www.cnblogs.com/del/archive/2008/01/01/1022130.html#2103357TStream 有 Seek() 方法, 它的子類們(TFileStream、TMemoryStream、TBytesStream、TStringStream、TResourceStream、TStreamAdapter、THandleStream...)也都有 Seek() 方法, 且用法一樣.另外它們也都有 Position 屬性, 使用

控制項的祖先 TControl 有很多功能, 但它的有些子孫確喪失了很多(為了專用).譬如 TBevel 就沒有把一些常規的事件繼承下來, 那些沒有被繼承的功能一般都隱藏在 protected 區, 如果重新繼承是可以使用的.這裡嘗試了另外一種方法: 自己沒有繼承時, 問一問有繼承的兄弟、叔伯擷取其它親戚; 當然應先確保自己的祖先有該功能且沒被覆蓋過.通過傳統的繼承法讓 TBevel 相應雙擊事件:unit Unit1;interfaceuses Windows, Messages,

代替 TSplitter 的 TDirPanel 類:unit DirPanel;interfaceuses Classes, Controls, Forms, ExtCtrls;type TDirPanel = class(TCustomPanel) private FLine: TPanel; B: Boolean; F: Integer; protected procedure LineMouseDown(Sender: TObject; Button:

經過近一個月的激烈角逐，部落格園“圖靈微軟名著杯博問大賽”已圓滿結束。獲獎園友分別是：一等獎：eaglet（獎勵圖靈圖書4本）二等獎：生魚片、Azuresong（獎勵圖靈圖書2本）三等獎：邢少、jowo、卡索（獎勵圖靈圖書1本）熱心園友獎：Jews、萬一、侯壘（獎勵圖靈圖書1本）請獲獎者在活動公告中選擇你想要的圖書，並將圖書名稱、快遞地址、電話以郵件形式發送至contact@cnblogs.com，郵件標題：博問大賽獎品領取。感謝大家對部落格園“圖靈微軟名著杯博問大賽”的支援，同時也非常感謝圖靈

一個普通的數字列表類(TNumList), 還沒有支援遍曆:unit NumList;interfaceuses SysUtils;type TNumList = class private FCount: Integer; FNumArray: array of Double; function GetNum(aIndex: Integer): Double; procedure SetNum(aIndex: Integer; aNum: Double);

TAnimation 類的主要成員:protected function NormalizedTime: Single; // procedure ProcessAnimation; virtual; //其子類們主要通過覆蓋此方法來實現不同的動畫 procedure Loaded; override; //public procedure Start; virtual; //播放 procedure Stop; virtual;

TImage 主要成員:{ 屬性 }Bitmap : TBitmap; //映像BitmapMargins : TBounds; //邊緣空白WrapMode : TImageWrapMode; //枚舉; iwOriginal、iwFit、iwStretch、iwTile(原始、適合、展開、平鋪)DisableInterpolation : Boolean;

TBitmap 主要成員:{ 方法 }SetSize(); //設定大小Clear(); //取消, 就是用指定顏色覆蓋ClearRect(); //覆蓋指定矩形範圍, 預設覆蓋為透明色BitmapChanged(); //重新整理改變IsEmpty(); //是否為空白UpdateHandles(); //將 Handles

Delphi XE2 的 FireMonkey 是跨平台的, 暫時只準備看看它在 Windows 下(我是 32 位 Win7)的應用情況.很新的東西, 相信有了它, 以後的介面將會更靈活、漂亮, 也會淘汰掉諸多皮膚、透明、映像等第三方組件, 但不知和 Win8 的 WinRT 有無關聯.為了它, Delphi XE2 的諸多單元加了首碼,

我覺得叫 "皮膚" 不如叫 "樣式" 或 "風格", 因為它可以包含和動作關聯的動畫.在 FMX 下, 控制項可以任意繪製, 各組件個人化的屬性可以統一儲存成一個 *.style 檔案. XE2 在 "...\Program Files\Embarcadero\RAD Studio\9.0\Redist\styles\Fmx\"

濾鏡類的繼承關係:TObject -> TPersistent -> TFilter -> TShaderFilter -> { 具體的濾鏡類 }//下面例子首先會用到 FMX.Filter 單元的四個公用方法:procedure FillCategory(AList: TStrings);procedure FillFiltersInCategory(const Category: string; AList: TStrings);function