其他

問題來源: http://www.cnblogs.com/del/archive/2008/05/29/1005631.html#1212654首先, 這個問題到 Delphi 2008 時, 可能就不存在了, 因為那時的 TStrings 肯定支援 UniCode; 目前的版本是 2007.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

剪下地區也是地區的一種, 視窗在重繪時只會重繪剪下地區中的內容.SelectClipRgn 和 ExtSelectClipRgn 是通過指定地區來定義剪下地區;SelectClipPath 是通過指定路徑來定義剪下地區;ExtSelectClipRgn 和 SelectClipPath 比 SelectClipRgn 多出一個與原剪下地區混合方式的參數:RGN_AND = 1;RGN_OR = 2;RGN_XOR = 3;RGN_DIFF = 4;RGN_COPY =

OffsetClipRgn: 移動剪下地區; PtVisible: 判斷點是否在剪下地區中.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure

相關函數: GetWindowOrgEx、SetViewportOrgEx(設定視口座標原點)、SetViewportOrgEx本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm)

相關函數: OffsetViewportOrgEx本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ComCtrls, ExtCtrls;type TForm1 = class(TForm) Button1: TButton; procedure

儘管使用 TIniFile 類很方便, 但我覺得還是用系統 API 操作更順手, 讀寫各只需要一行代碼, 也不用 uses IniFiles.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo;

相似函數: ScaleWindowExtEx、ScaleViewportExtEx本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject);

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

這不是個確定的值, 它和裝置的解析度相關.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); end;var Form1: TForm1;implementation{$R

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormClick(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var f: Boolean =

CombineRgn( p1: HRGN; {合成後的地區} p2, p3: HRGN; {兩個原始地區} p4: Integer {合并選項; 見下表}): Integer; {有四種可能的傳回值}//合并選項:RGN_AND = 1;RGN_OR = 2;RGN_XOR = 3;RGN_DIFF = 4;RGN_COPY = 5; {複製第一個地區}//傳回值:ERROR = 0; {錯誤}NULLREGION = 1;

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormClick(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}var f:

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormCreate(Sender: TObject); procedure FormDestroy(Sender: TObject); procedure

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

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

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); end;var Form1: TForm1;implementation{$R *.dfm}procedure