05 2012 档案

摘要：首先感谢万一老师，在您的博文中收益匪浅。首先用万一老师的示例，来自（http://www.cnblogs.com/del/archive/2011/11/08/2241746.html）uses Winapi.GDIPAPI, Winapi.GDIPOBJ{, Winapi.GDIPUTIL};procedure TForm1.FormPaint(Sender: TObject);var graphics: TGPGraphics; pen: TGPPen;begin graphics := TGPGraphics.Create(Canvas.Handle); pen := TGPPe... 阅读全文

摘要：1 uses　RegularExpressions;　//相关单元 2 3 const 4 pattern　=　'[A-Z]+d+'; //测试用的表达式 5 txt　=　'AAA1　BBB2　AA11　BB22　A111　B222　AAAA';　//测试用的目标文本 6 7 {是否匹配成功} 8 procedure　TForm1.Button1Click(Sender:　TObject); 9 begin 10 if　TRegEx.IsMatch(txt,　pattern)　then 11 ... 阅读全文

摘要：废话不说，上代码，简单之极。注意红色代码就可以了。unit Unit4;interfaceuses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, RegularExpressions;type TForm4 = class(TForm) edtIP: TEdit; btn1: TButton; lbl1: TLabel; ... 阅读全文

摘要：1、先在Project--> Operation ---> Application ---> Appearance，把所有的皮肤都勾选了。2、Uses Vcl.Themes 单元；3、填写代码var li_Count: Integer;begin Randomize; li_Count := High(TStyleManager.StyleNames); TStyleManager.SetStyle(TStyleManager.StyleNames[Random(li_Count)]);end; 阅读全文