其他

問題來源: http://www.cnblogs.com/del/archive/2008/11/14/1120015.html#1370413StrUtils 單元和 Math 單元 分別有一個 IfThen 函數, 舉例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 =

自訂的虛線樣式依賴與一個數組, 數組的元素分別代表虛線中線與間的長度, 數組大小好像沒有限制;本例使用了六個元素的數組, 也就是表示虛線有三個線段和和三個間隔構成.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls;type TForm1 =

測試:自訂的 MyShape 單元:unit MyShape;interfaceuses Windows, Classes, Graphics, Controls;type TMyShapeType = (stRectangle, stSquare, stRoundRect, stRoundSquare, stEllipse, stCircle, stPolygon); TPoints = array of TPoint; TMyShape =

先上轉換函式:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject);

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

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; Button2: TButton; Button3: TButton; Button4: TButton; procedure

下面是常用編碼的識別符, 在 Delphi(2009) 中如何擷取呢?Unicode: FF FE; BigEndianUnicode: FE FF; UTF8: EF BB BFvar bs: TBytes; b: Byte; str: string;begin {只有 Unicode、BigEndianUnicode、UTF8 編碼有識別符} bs := TEncoding.Unicode.GetPreamble; str := ''; for b in bs do str :

本例:代碼檔案: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

GDI+ 可以自訂線帽, 本例定義的起始線帽是一個小矩形、終止線帽是一個小三角形.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

問題來源: http://www.cnblogs.com/del/archive/2008/11/22/1284923.html#1378410Delphi 2009 預設的編碼是多位元組編碼(MBCS), Delphi 這樣表示它: TEncoding.Default.下面是多位元組編碼與漢字之間轉換的例子:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls,

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

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

問題來源: http://www.cnblogs.com/del/archive/2008/11/26/1031787.html#1382525兩個結構體可以直接賦值!, 測試如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1:

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

問題來源: http://www.cnblogs.com/del/archive/2008/11/25/1339604.html#1381839方法1: 用 TImageunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type TForm1 = class(TForm) Image1:

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

拐角長度的限制的預設值是 10.0, 一般足夠用了.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls;type TForm1 = class(TForm) TrackBar1: TTrackBar; procedure FormPaint(Sender:

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

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TForm1 = class(TForm) ComboBox1: TComboBox; ComboBox2: TComboBox; ComboBox3: TComboBox;

幾何變換也就是 Matrix 變換, 畫筆的 Matrix 會忽略 dx、dy 平移參數; 選擇 LineCapRound 線帽效果比較好.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, ExtCtrls;type TForm1 = class(TForm)