好不容易在网络上找到的序列号,测试过安装能用.      delphi还是没微软那份人性化啊.看到D2007 比D7优化了不少,但是耗系统资源提多了,开了D2007再开个游戏内存就占用 2.8G了, 所以急切盼望着能用上2009, 今天总算让我百度到了.        如果有幸给你搜到这个序列号, 而且你也用不了破解文件, 那么记住, 删了那俩破解文件,重新打开安装程序,就会有个序列号的填写框. 输入这个序列号!!就可以啦! Delphi2009 安装序列号 Serial Number: HAAE-D4CAUN-DN74SG-H4CN

本例效果图: 代码文件: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls; type  TForm1 = class(TForm)    CategoryPanelGroup1: TCategoryPanelGroup;    CategoryPanel1: TCategoryPanel;    CategoryPanel2: TCategoryPanel;    CategoryPanel3: TCategoryPanel;    RadioGroup1: TRadioGroup;    RadioG...

制作过程:先添加一个 TCategoryPanelGroup, 再从其右键菜单 -> New Panel, 反复添加三个 TCategoryPanel. 本例测试了:TCategoryPanelGroup 的 ChevronAlignment 属性、CollapseAll 和 ExpandAll 方法;还有 TCategoryPanel 的 Collapsed 属性. 本例效果图: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls, StdCtrls; type  TForm1 = class(TForm)    CategoryPanelGroup1: TCategoryPanelGroup...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    LinkLabel1: TLinkLabel;    procedure FormCreate(Sender: TObject);    procedure LinkLabel1LinkClick(Sender: TObject; Link: string;      LinkType: TSysLinkType);  end; var  Form1: TForm1; implementation {$R *.dfm} uses ShellAPI; p...

本例效果图: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ExtCtrls, ImgList; type  TForm1 = class(TForm)    ImageList1: TImageList;    ButtonedEdit1: TButtonedEdit;    Button1: TButton;    procedure FormCreate(Sender: TObject);    procedure ButtonedEdit1LeftButtonClick(Sender: TObject);    pro...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end; var  Form1: TForm1; implementation {$R *.dfm} //TStringBuilder.ToString 可以带参数procedure TForm1.Button1Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create('1...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end; var  Form1: TForm1; implementation {$R *.dfm} //TStringBuilder.Equals 判断对象是否相同procedure TForm1.Bu...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end; var  Form1: TForm1; implementation {$R *.dfm} //TStringBuilder.CopyToprocedure TForm1.Button1Click(Sender...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end; var  Form1: TForm1; implementation {$R *.dfm} //TStringBuilder 的插入与删除procedure TForm1.Button1Click(Sender: TObject);var  sb: TStringBuilder;begin  sb := TStringBuilder.Create;  sb...

   unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);    procedure Button3C...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    Button3: TButton;    Button4: TButton;    Button5: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  &n...

unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls; type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure Button2Click(Sender: TObject);  end; var  Form1: TForm1; implementation {$R *.dfm} //TStringBuilder.Create 可以无参数procedure TForm1.Button1C...