其他

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

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

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

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,

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

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

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton; Button2:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DXDraws, StdCtrls;type TForm1 = class(TForm) DXDraw1: TDXDraw; DXImageList1: TDXImageList; Button1: TButton; Button2:

已知 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

//rc 檔案:StringTablebegin0 "AAAA"1 "BBBB"2 "CCCC"3 "DDDD"end//也可以這樣寫:StringTablebegin0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"end//還可以這樣寫:StringTable{0,"AAAA"1,"BBBB"2,"CCCC"3,"DDDD"}{嚴格的頭可能是這樣寫: STRINGTABLE DISCARDABLE}//程式碼:unit Unit1;interfaceuses Windows,

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls;type TForm1 = class(TForm) TreeView1: TTreeView; Button1: TButton; Button2: TButton; Button3: TButton;

//讓 TDIB 的這些特效煩透了: 多、還重複、又不完善; 還沒有測試或測試失敗的方法:procedure DrawShadow(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; FilterMode: TFilterMode);procedure DrawShadows(SrcDIB: TDIB; X, Y, Width, Height, Frame: Integer; Alpha: Byte);procedure