其他

在表單上添加 Panel1、PaintBox1 和 Button1, 代碼如下:procedure TForm1.Button1Click(Sender: TObject);var cvs: TCanvas;begin {PaintBox1 就像表單一樣, 也有 Canvas 屬性} PaintBox1.Canvas.Brush.Color := clRed; PaintBox1.Canvas.FillRect(PaintBox1.ClientRect); {像 Panel1

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

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

資源檔(*.res)通過編譯指令 $R 關聯, 譬如工程檔案 Project1 中的 {$R *.res} 就是關聯 Project1.res 資源檔, 我們直接寫作 {$R Project1.res} 不會有問題(但如果工程檔案改名時, 你也得隨著改才行). 譬如:program Project1;uses Forms, Unit1 in 'Unit1.pas' {Form1};{$R Project1.res}begin Application.Initialize;

首先編輯 rc 檔案如下(假定圖片檔案放在程式目錄下的 img 檔案夾下):bmp1 BITMAP img\bmpFile1.bmpbmp2 BITMAP img\bmpFile2.bmp或者:bmp1,BITMAP,img\bmpFile1.bmpbmp2,BITMAP,img\bmpFile2.bmp然後在表單上添加一個 Image、兩個 Button, 代碼如下:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants,

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, DIB, StdCtrls;type TForm1 = class(TForm) DXPaintBox1: TDXPaintBox; Button1: TButton; Button2: TButton; Button3:

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

本例:源碼: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:

問題來源: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746原理分析:這需要用到 ShellAPI 單元的兩個函數: DragAcceptFiles、DragQueryFile;用 DragAcceptFiles(視窗控制代碼, True); 以讓視窗能夠接受拖放;然後就等待 WM_DROPFILES 訊息, 並用 DragQueryFile 函數處理訊息參數, 從而擷取資訊.代碼檔案:unit

//第一種重載的聲明:TextRect( Rect: TRect; {矩形} X, Y: Integer; {相對於表單的位置} const Text: string {文本});{如果要輸出的文本超出指定的矩形將不被顯示}//第一種重載的舉例:procedure TForm1.Button1Click(Sender: TObject);const R: TRect = (Left:0; Top:0; Right:60; Bottom:60); s = '萬一的

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

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

問題來源: http://www.cnblogs.com/del/archive/2009/01/23/1232856.html#post方法一:Delphi 的 TBitmap 類可以方便地操作流, 如果能讓 TGPImage 和 TBitmap 溝通起來就好了;TGPImage 有一個子類 TGPBitmap 可以和 TBitmap 溝通... ok 了!代碼如下:uses GDIPOBJ, GDIPAPI;procedure TForm1.FormPaint(Sender:

現在要做一個攜帶兩個表徵圖的資源檔, 並調用的例子.1、首先建新工程, 儲存, 注意這次我們不刪除 {$R *.res}2、複製兩個 ico 檔案到工程目錄, 譬如檔案是: IcoFile_1.ico、IcoFile_2.ico3、建立文字檔輸入:ico1 ICON IcoFile_1.icoico2 ICON IcoFile_2.ico然後儲存為: MyRes.rc, 並 Add 到工程中, :4、此時的工程檔案會自動插入: {$R 'MyRes.res'

問題來源: http://www.cnblogs.com/del/archive/2009/01/23/1017571.html#1437673本來 wuheng66888 需要的是輸出旋轉的文本, 下面的例子只是轉了一個矩形;因為 GDI+ 的旋轉理念是旋轉畫布, 所以都是一樣的.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

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

填寫 TTreeView 的內容一般是這樣開始的(), 不過我覺得最好習慣用動態建立.打個比方: 譬如 TreeView 是一個軍營的"營部"! 這裡會有營長、連長、排長、班長、戰士等等.我們把它們分成三種對象: 營部、營長(總當家)、營長的下屬. 在這裡的對應關係是:TTreeView - 營部TTreeNodes - 營長TTreeNode - 營長的下屬上面的例子中的"營長"不是具體的哪個元素, 他代表著全營, 很多事情都是他說了算; 其他成員都是"營長"的兵.換成 Delphi 的說法:

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:

TDIB.DrawTransparent: 按指定的透明色透明;TDIB.DrawTranslucent: 先按指定的透明色透明, 然後再半透明;DIB.DrawAlpha: 先按指定的透明色透明, 再按指定的透明度透明.本例:代碼檔案:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, DIB, StdCtrls;type