其他

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

//rc 檔案:cur1 CURSOR cur\kyodai.curcur2 CURSOR cur\static.cur//或者cur1,CURSOR,cur\kyodai.curcur2,CURSOR,cur\static.cur//程式碼:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls;type

Delphi 的 Graphic 單元有五個重要的映像類: TGraphic、TBitmap、TMetafile、TIcon、TPicture.TBitmap 用來操作位元影像;TMetafile 用來操作圖元檔案;TIcon 用來操作表徵圖(包括滑鼠指標)檔案;TBitmap、TMetafile、TIcon 都是 TGraphic 的子類, 由於TCanvas.Draw(X, Y: Integer; Graphic: TGraphic); 的第三個參數就是 TGraphic 類型,

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids;type TForm1 = class(TForm) TreeView1: TTreeView; StringGrid1: TStringGrid; procedure

function CreateThread( lpThreadAttributes: Pointer; dwStackSize: DWORD; lpStartAddress: TFNThreadStartRoutine; lpParameter: Pointer; dwCreationFlags: DWORD; {啟動選項} var lpThreadId: DWORD): THandle; stdcall;CreateThread 的倒數第二個參數

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids, ExtCtrls;type TForm1 = class(TForm) TreeView1: TTreeView; Memo1: TMemo; Panel1: TPanel; Button1:

//TPen 的主要屬性有四: Color、Width、Style、Mode{Color: 顏色}{Width: 寬度; 預設是 1; 如果賦予 //下面的例子依次展示了各種樣式:var i,x,y,n: Integer;begin x := 10; y := 15; n := ClientWidth - 2*x; Canvas.Pen.Color := clRed; for i := 0 to 8 do begin Canvas.Pen.Style :=

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

//畫刷類 TBrush 有三個重要屬性: Color、Style、Bitmap.{Style: 樣式; Delphi 為畫刷定義了樣式枚舉 TBrushStyle, 包含以下樣式:}bsSolidbsClearbsHorizontalbsVerticalbsFDiagonalbsBDiagonalbsCrossbsDiagCross//下面小程式展示了上面的其中填充樣式:var i,n: Integer; r: TRect;begin Canvas.Pen.Color := clRed;

首先編輯 rc 檔案如下(假定圖片檔案放在程式目錄下的 img 檔案夾下):1 BITMAP img\bmpFile1.bmp2 BITMAP img\bmpFile2.bmp或者:1,BITMAP,img\bmpFile1.bmp2,BITMAP,img\bmpFile2.bmp這次我們是給每個資源做了編號, 沒有取標識名稱; 然後在表單上添加兩個 Button, 代碼如下:unit Unit1;interfaceuses Windows, Messages, SysUtils,

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

//rc 檔案:MyMenu1 MENUbeginPopup "File"beginMenuItem "&Open"MenuItem "&Save"MenuItem SeparatorMenuItem "E&xit"endend{嚴格的頭可能是這樣寫: MyMenu1 MENU PRELOAD DISCARDABLE}//程式碼:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants,

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

function CreateThread( lpThreadAttributes: Pointer; {安全設定} dwStackSize: DWORD; {堆棧大小} lpStartAddress: TFNThreadStartRoutine; {入口函數} lpParameter: Pointer; {函數參數} dwCreationFlags: DWORD;

//先來個例子:procedure TForm1.FormPaint(Sender: TObject);const S = '萬一的 Delphi 部落格';var font: TFont;begin font := TFont.Create; font.Name := '微軟雅黑'; font.Style := [fsBold, fsItalic]; font.Color := clRed; font.Height := 72; Canvas.Font := font;

本例:unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ComCtrls, StdCtrls, Grids, ExtCtrls;type TForm1 = class(TForm) TreeView1: TTreeView; Memo1: TMemo; Panel1: TPanel; Button1:

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

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

//奇妙的異或運算, 就這些簡單的代碼, 反覆點擊按鈕...procedure TForm1.Button1Click(Sender: TObject);begin Canvas.Pen.Color := clYellow; {指定筆顏色為黃色} Canvas.Pen.Width := 20; {筆寬 20} Canvas.Pen.Mode := pmXor; {指定畫筆模式為: 畫筆色與背景色的異或運算} {畫線} Canvas.MoveTo(0,0);