unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi
在窗體上添加 Panel1、PaintBox1 和 Button1, 代碼如下:procedure TForm1.Button1Click(Sender:
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphi
//第一種重載的聲明:TextRect( Rect: TRect; {矩形} X, Y: Integer; {相對於窗體的位置} const Tex
//先來個例子:procedure TForm1.FormPaint(Sender: TObject);const S = 萬一的 Delphi 博客;va
//TPen 的主要屬性有四:Color、Width、Style、Mode{Color: 顏色}{Width: 寬度; 默認是 1; 如果賦予 <=
//奇妙的異或運算, 就這些簡單的代碼, 反復點擊按鈕...procedure TForm1.Button1Click(Sender: TObject);b
//畫刷類 TBrush 有三個重要屬性:Color、Style、Bitmap.{Style: 樣式; Delphi 為畫刷定義了樣式枚舉 TBrushSt
Delphi 的 Graphic 單元有五個重要的圖像類: TGraphic、TBitmap、TMetafile、TIcon、TPicture. TBit
procedure TForm1.Button1Click(Sender: TObject);var str: string; wh: TSize; w,h
//替換一般字符串var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg.Subject :
// | 號的使用, | 是或者的意思var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); re
// [A-Z]: 匹配所有大寫字母var reg: TPerlRegEx;begin reg := TPerlRegEx.Create(nil); reg