其他

//恢複布局 IniFileName := ExtractFilePath(Application.ExeName) + 'Layout/' + Self.Name + '.ini'; if FileExists(IniFileName) then Self.tvResult.RestoreFromIniFile(IniFileName) //從布局檔案中恢複 else begin Self.tvResult.BeginUpdate; for i := 0 to

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, xmldom, XMLIntf, msxmldom, XMLDoc, StdCtrls;type TForm1 = class(TForm) XMLDocument1: TXMLDocument; Button1: TButton; procedure

//聲明:SetTextAlign( DC: HDC; {裝置環境控制代碼} Flags: UINT {對齊選項}): UINT; {返回對齊選項值; 如果返回 GDI_ERROR 表示設定失敗}//Flags 參數的可選值:TA_NOUPDATECP = 0; {每一次文本輸出後, 不更新當前位置}TA_UPDATECP = 1; {每一次文本輸出後, 更新當前位置}TA_LEFT = 0; {起始於文本外接矩形左邊}TA_RIGHT

//聲明WinExec( lpCmdLine: LPCSTR; {檔案名稱和參數; 如沒指定路徑會按以下順序尋找: 程式目錄/目前的目錄/System32/Windows/PATH環境變數} uCmdShow: UINT {啟動選項}): UINT;//傳回值:大於 31 {調用成功}等於 0 {記憶體不足}ERROR_FILE_NOT_FOUND = 2; {檔案名稱錯誤}ERROR_PATH_NOT_

地圖圖層想象圖層是透明的，而每一層都包含了地圖的不同部分。這些圖層是一層層疊加，這樣您就可以看到整個地圖資訊。多個圖層集合組成電腦地圖設想這些圖層是透明的，每一圖層包含地圖的一個不同的部分。這些圖層疊加在一起，使您同時可以看到地圖的所有方面。例如，第一個圖層包含國家邊界，第二個圖層有代表首都的符號，第三個圖層包含高速公路。將這些透明的圖層疊加在一起就組織起一個完整的地圖。地圖圖元有四個基本的圖元樣式：地區對象：覆蓋給出地區的封閉對象。包括多邊形、橢圓形以及矩形。例如，國家的邊界、郵遞區號劃分區的

提示: 因為其中的回呼函數是在停機時間內訪問的, 必須在 DLL 中; 要訪問的資料都必須是在固定的資料區段中; 除了PostMessagetimeGetSystemTimetimeGetTimetimeSetEventtimeKillEventmidiOutShortMsgmidiOutLongMsgOutputDebugString 外, 也不能有其他系統調用.//聲明:midiInOpen( lphMidiIn: PHMIDIIN; {用於返回裝置控制代碼的指標;

虛擬鍵碼 對應值 對應鍵VK_LBUTTON1滑鼠左鍵VK_RBUTTON2滑鼠右鍵VK_CANCEL3CancelVK_MBUTTON4滑鼠中鍵VK_XBUTTON15VK_XBUTTON26VK_BACK8BackspaceVK_TAB9TabVK_CLEAR12ClearVK_RETURN13EnterVK_SHIFT16ShiftVK_CONTROL17CtrlVK_MENU18AltVK_PAUSE19PauseVK_CAPITAL20Caps

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; Button5:

// | 號的使用, | 是或者的意思var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject := 'CodeGear Delphi 2007'; reg.RegEx := 'e|Delphi|0'; //使用了 | 記號 reg.Replacement := '◆'; reg.ReplaceAll; ShowMessage(reg.Subject); //返回: Cod◆G◆ar ◆ 2◆◆7

AdjustWindowRect給定一種視窗樣式，計算獲得勘探區矩形所需的視窗大小AnyPopup判斷螢幕上是否存在任何彈出式視窗ArrangeIconicWindows排列一個父視窗的最小化子視窗AttachThreadInput連接線程輸入函數BeginDeferWindowPos啟動構建一系列新視窗位置的過程BringWindowToTop將指定的視窗帶至視窗列表頂部CascadeWindows以層疊方式排列視窗ChildWindowFromPoint返回父視窗中包含了指定點的第一個子視窗

//要點12: implementation 區中的過程或函數, 只能在本單元調用unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton; procedure Button1Click(Sender:

方法來到類中, 以前的特點基本都在;因為類一般是存在於一個繼承鏈中, 所以就有了一些新的概念, 譬如: 繼承、覆蓋;也有了很多新名稱, 譬如: 靜態方法、虛方法、動態方法、抽象方法、類方法、訊息方法.先從虛方法與動態方法開始吧//下面的類中就定義了兩個虛方法(virtual)、兩個動態方法(dynamic)TMyClass = class procedure Proc1(x,y: Real); virtual; function Fun1(x,y: Real): Real; virtual;

王爽老師書上說, CPU 內部主要就是寄存器.現在我們在 32 位的系統下工作, 當然主要使用的是 32 位寄存器; 那它和 8 位、16 位的寄存器又有什麼關係呢?從網上找到一個簡潔明了的圖片:EAX 是 32 位的, 也就是 4 個位元組大小; 它的低兩位就是 AX;AX 是 16 位的, 又分 2 個位元組; 它的高位元組是 AH、低位元組是 AL;AH 與 AL 是 8 位的.這樣就相容了以前的 16 位與 8 位.同理, EBX 就包含著 BX BH BL;ECX 就包含著 CX

//聲明:PolyPolyline( DC: HDC; {裝置環境控制代碼} var Points; {點數組} var nPoints;{數組, 數組元素是每個組的頂點數} p4: Integer {分組數, 也就是 nPoints 的元素數}): BOOL;//舉例:procedure TForm1.FormPaint(Sender: TObject);var ps: array[0..9] of TPoint; pn: array[0..1] of

//聲明:InflateRect( var lprc: TRect; {要修改的矩形} dx, dy: Integer {變化值}): BOOL;//舉例:procedure TForm1.FormPaint(Sender: TObject);var R: TRect;const s = '%d,%d,%d,%d';begin R := Rect(60, 60, 200, 150); DrawFocusRect(Canvas.Handle, R); Canvas.TextOut(

//聲明:DrawFrameControl( DC: HDC; {裝置環境控制代碼} const Rect: TRect; {矩形} uType, uState: UINT {控制項類型與控制項狀態}): BOOL;//控制項類型 uType 參數可選值:DFC_CAPTION = 1; {標題按鈕}DFC_MENU = 2; {菜單}DFC_SCROLL = 3; {捲軸按鈕}DFC_BUTTON = 4;

方法一、二、三:方法四:方法一:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) procedure FormMouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y:

問題來源: http://www.cnblogs.com/del/archive/2008/06/14/1221980.html#1225922//這樣就可以使當前視窗的關閉按鈕變灰, 但系統功能表中會有一條多餘的線var h: HMENU;begin h := GetSystemMenu(Handle, False); DeleteMenu(h, SC_CLOSE, MF_BYCOMMAND);end;//這樣也可以是當前視窗的關閉按鈕變灰, 同時也去掉了分割線var h:

問題來源: http://www.cnblogs.com/del/archive/2008/07/30/1039045.html#1272783在編譯器看來, 重載函數根本就是完全不同的幾個函數, 當然就會有不同的函數地址; 我們用常規方法擷取的地址只是第一種重載的地址.代碼檔案: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) Panel1: TPanel; Panel2: TPanel; Panel3: TPanel; RadioButton1: