其他

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

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

啟動強制回應視窗, 當前視窗會收到一條 WM_CancelMode 訊息; 改訊息無參數.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; Button1: TButton; Button2:

已有定義的系統命令常數(感覺有些有問題):SC_SIZE = 61440;SC_MOVE = 61456;SC_MINIMIZE = 61472;SC_MAXIMIZE = 61488;SC_NEXTWINDOW = 61504;SC_PREVWINDOW = 61520;SC_CLOSE = 61536;SC_VSCROLL = 61552;SC_HSCROLL = 61568;SC_MOUSEMENU

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

問題來源: 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:

TGPLinearGradientBrush.Create( rect: TGPRect; {變化範圍} color1, color2: TGPColor; {起始色與終止色} angle: Single; {旋轉角度} isAngleScalable: BOOL = FALSE {是否受 TLinearGradientMode 的影響, 可選值,

function MakePoint(X, Y: Integer): TGPPoint; overload;function MakePoint(X, Y: Single): TGPPointF; overload;function MakeSize(Width, Height: Integer): TGPSize; overload;function MakeSize(Width, Height: Single): TGPSizeF; overload;function MakeRect(x,

問題來源: 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;type TForm1 = class(TForm) procedure FormPaint(Sender: TObject); procedure FormClick(Sender: TObject); end;var Form1:

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

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

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

1、先提交回複, 第一次提交時先不要代碼, 可有文字;2、再修改回複, 修改時包其中的 <br/> 換行標記, 也可以用 <br/> 添加新的換行;3、然後按下面方式提交回複://Delphi 代碼...//C/C++ 代碼...//C# 代碼...注意: 重新開啟才能看到效果; 建議把上面文本加入到IME的自訂文本裡面.查看回複效果: http://www.cnblogs.com/del/archive/2009/01/03/1367468.html#1419896

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

已知 GDI+ 可以支援的映像格式: BMP、JPEG、GIF、TIFF、PNG、ICO、WMF、EMFTGPGraphics.DrawImage 函數有太多重載了, 一起列在這吧:function DrawImage(image: TGPImage; const point: TGPPointF): TStatus; overload;function DrawImage(image: TGPImage; x, y: Single): TStatus; overload;function

我通過做此例同時證實了 GDI+ 可以直接顯示 png、gif、tif 格式的透明圖片.//紅色與綠色繞藍色旋轉(r 是弧度)ColorMatrix: TColorMatrix = ( (Cos(r), Sin(r), 0.0, 0.0, 0.0), (-Sin(r), Cos(r), 0.0, 0.0, 0.0), (0.0, 0.0, 1.0, 0.0, 0.0), (0.0, 0.0, 0.0, 1.0, 0.0), (0.0

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