其他

通過 Application.OnMessage 響應訊息:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject);

TApplicationEvents.OnMessage 的第二個參數 Handled 如果是 True, 表示訊息已經處理過了, 到此為止.unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, AppEvnts, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo;

本例: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}uses GDIPOBJ,

覆蓋: WndProcunit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TForm1 = class(TForm) protected procedure WndProc(var Message: TMessage); override; end;var Form1:

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:

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

問題來源: http://www.cnblogs.com/del/archive/2008/10/25/1069523.html#1351197unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Button1: TButton;

//顯示 MetaFile 檔案var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\x.emf'); {檔案要存在} g.DrawImage(img, 11, 11); img.Free; g.Free;end;//繪製 MetaFile 檔案var g: TGPGraphics; mf:

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls;type TMyShape = class(TShape) protected procedure CMMouseenter(var Message: TMessage); message

//用 Bitmap 顯示映像var g: TGPGraphics; bit: TGPBitmap;begin g := TGPGraphics.Create(Canvas.Handle); bit := TGPBitmap.Create('c:\temp\x.jpg'); g.DrawImage(bit, 11, 11); {預設大小竟然和 1:1 不一樣, 是不是解析度的問題?} g.DrawImage(bit, 11, 11, bit.GetWidth,

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

//指定位元影像顏色var g,gbit: TGPGraphics; bit1,bit2: TGPBitmap; sb: TGPSolidBrush;begin //Self.Color := clWhite; g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(MakeColor(255,0,0)); {畫刷為紅色} bit1 := TGPBitmap.Create(200, 32,

//正常顯示圖片, 沒有變換uses GDIPAPI, GDIPOBJ;procedure TForm1.FormPaint(Sender: TObject);var g: TGPGraphics; img: TGPImage;begin g := TGPGraphics.Create(Canvas.Handle); img := TGPImage.Create('c:\temp\test.png'); {測試檔案要存在} g.DrawImage(img, 0, 0,

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

//建立並填充地區var g: TGPGraphics; sb: TGPSolidBrush; region: TGPRegion; {定義地區}begin g := TGPGraphics.Create(Canvas.Handle); sb := TGPSolidBrush.Create(aclGold); region := TGPRegion.Create(MakeRect(50, 50, 150, 150)); {建立地區} g.FillRegion(sb, region)

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

如果使用 Delphi 2009 之後的版本, 推薦使用:http://www.cnblogs.com/del/archive/2009/12/11/1621790.html.下面這些是以前用 2007 弄的.GDI+ 是 Windows 的一個函數庫, 來自 Windows\System32\GDIPlus.dll, 其中包含了 610 個函數.在 Delphi 中使用需要先下載安裝 GDI+ for Delphi(這用於 2006、2007 Win32 的版本).提供一個新的下載:

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

本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type TForm1 = class(TForm) Memo1: TMemo; procedure FormCreate(Sender: TObject); procedure FormMouseDown(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}uses GDIPOBJ,