其他

問題來源: http://www.cnblogs.com/del/archive/2008/12/11/1091310.html#1398793本例(這個例子還有問題, 拖動和移動的距離單位不一樣):代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Grids;type TForm1 = class(TForm)

問題來源: http://www.cnblogs.com/del/archive/2008/12/20/985931.html#1408193本例中的 Form2 所在 Unit2 中沒有任何代碼, 以下是 Unit1 中的代碼:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 =

通過路徑的 Flatten 方法可以把路徑中的曲線拉直, 拉直到什麼程度是由它的第二個參數(預設0.25)決定的; 它的第一個參數又是一個矩陣變換, 也就是說 Flatten 可以同時進行矩陣變換, 本例沒有測試它, 其詳情參見:http://www.cnblogs.com/del/archive/2008/06/20/1226293.html本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants,

本例示範了把路徑中的資料儲存到一個文字檔, 然後再讀出的過程.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure

問題來源: http://www.cnblogs.com/del/archive/2008/12/13/1353193.html#1400641本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo;

問題來源: http://www.cnblogs.com/del/archive/2008/12/09/1286648.html#1395694unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) ComboBox1: TComboBox;

問題來源: http://www.cnblogs.com/del/archive/2008/12/13/1081644.html#1400835GetActiveWindow 只是擷取當前程式中(嚴格地說是線程中)被啟用的視窗;GetForegroundWindow 是擷取當前系統中被啟用的視窗.兩個函數的層級不一樣, 一個是線程級、一個是系統級.被啟用的視窗不一定是頂層視窗(最上面的視窗).下面的例子可以充分說明問題, 測試方法：點擊三個按鈕，然後反覆切換焦點、觀察．代碼檔案:unit

問題來源: http://www.cnblogs.com/del/archive/2008/12/20/985931.html#1408308本例:Dll 檔案:library Lib;uses SysUtils, Classes;{$R *.res}procedure Test(p: PChar);const Title = 'Title ';var str: string;begin str := p; StrCopy(p, Title); StrCat(p,

前言:所謂"流", 就是一段資料或是一塊記憶體;在進行流操作時, 我們不必關心流中的資料到底是什麼; 只需要知道流的大小和當前的指標位置. 所以流只有兩個屬性: Size、Position.對流的操作, 不過就是讀取和寫入. 所以流最主要的方法就是 Read 和 Write.在很多控制項的使用中, 讀取主要用 LoadFromStream; 寫入主要用 SaveToStream.舉個例子: (建立新工程, 添加兩個 Memo、兩個 Button)unit Unit1;interfaceuses

通過路徑的 Warp 方法可以讓路徑在一個範圍內(四個點決定的範圍)變換;第一個參數可以是 3 個點或 4 個點的數組, 如果是 3 個的數組, 那麼第 4 個點將自動跟隨一個平行四邊形;第二個參數用來指定點數組的個數, 本例就是通過這個參數控制了點的個數;第三個參數是一個矩形, 這個矩形應該是路徑的外接矩形, 之後的參數都是可選的;第四個參數也是一個矩陣變換, 因由專門的 例子 , 這裡沒有嘗試;第五個參數是 TWarpMode(WarpModePerspective,

Delphi 2009 有了pngimage、GIFImg 單元, 可以直接使用 png 和 gif 圖片了;如果是設計時給 TImage 裝載 png 圖片, Delphi 會自動調用 pngimage 單元完成載入, 那動態調用呢?當然首先要uses pngimage, 然後:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) RadioGroup1: TRadioGroup; procedure FormCreate(Sender: TObject); procedure

1. $IFDEF 等同於 $IF DEFINED(...) :它們的結束分別是: $ENDIF、$IFEND; 例子中的 VER200 是 Delphi 2009 的標識.begin {$IFDEF VER200} ShowMessage('這是 Delphi 2009'); {$ENDIF} {$IF DEFINED(VER200)} ShowMessage('這是 Delphi 2009'); {$IFEND}end;2. $IFNDEF 等同於 $IF NOT

 類別 運算子運算子標識使用轉換隱式轉換 ImplicitImplicit(a: type): resultType;顯式轉換ExplicitExplicit(a: type): resultType;一元-NegativeNegative(a: type): resultType;+PositivePositive(a: type): resultType;IncIncInc(a: type): resultType;DecDecDec(a: type):

Windows 編程 |學習 Message |多線程編程 |記憶體管理 |記憶體函數 |鉤子函數 |初學彙編 |演算法與資料結構 | 資源檔 |游標相關函數 |WinAPI 字元及字串函數 |再學 GDI+ |用 GDI 操作 EMF 檔案 |Delphi 的繪圖功能 | 理解類 |TStringGrid |TMainMenu |TTreeView |TScreen |TRegistry |TListView |使用剪下板 |TList 類的實現 | 運算子多載 |編譯指令 |字元及字串

問題來源: http://www.cnblogs.com/del/archive/2008/12/10/1345752.html#1397451unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel;

找來找去沒找到官方資料, 暫時把碰到過的列舉出來吧, 以後慢慢補充.版本標識:VER10 : Turbo Pascal 1VER20 : Turbo Pascal 2VER30 : Turbo Pascal 3VER40 : Turbo Pascal 4VER50 : Turbo Pascal 5VER60 : Turbo Pascal 6VER70 : Turbo Pascal 7 / Borland Pascal 7VER80 : Delphi 1VER90 :

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls;type TForm1 = class(TForm) Panel1: TPanel; Button1: TButton; TrackBar1: TTrackBar;

路徑的 Widen 方法可以把路徑中的線, 根據指定畫筆的寬度與樣式, 轉換為一個範圍(有點類似地區); 但轉換後再描繪路徑就只能使用 FillPath 而不是 DrawPath 了. 本例沒有測試它的兩個預設參數, 因為前面已多次提到了.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs,

指令及預設值可選值範圍注釋舉例{$A8} {$ALIGN8}{$A+},{$A-}, {$A1},{$A2},{$A4},{$A8}; {$ALIGN ON},{$ALIGN OFF}, {$ALIGN 1},{$ALIGN 2}, {$ALIGN 4},{$ALIGN 8}Local{$APPTYPE GUI}{$APPTYPE GUI}, {$APPTYPE CONSOLE}Global{$B-} {$BOOLEVAL OFF}{$B+},{$B-};