unit3.~pas

转载 工控软件管理绿色小精灵 v2005代码。非常好的 要控件上http://www.bokonger.com/ReNewsInfo.asp?id=19下

unit Unit3;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, BusinessSkinForm, ExtCtrls, bsSkinCtrls, StdCtrls,
  bsSkinBoxCtrls, ComCtrls, bsSkinTabs;

type
  TForm3 = class(TForm)
    bsBusinessSkinForm1: TbsBusinessSkinForm;
    Image1: TImage;
    bsSkinXFormButton1: TbsSkinXFormButton;
    Label1: TLabel;
    Label2: TLabel;
    bsSkinPageControl1: TbsSkinPageControl;
    bsSkinTabSheet1: TbsSkinTabSheet;
    bsSkinTabSheet2: TbsSkinTabSheet;
    bsSkinMemo1: TbsSkinMemo;
    bsSkinTabSheet3: TbsSkinTabSheet;
    bsSkinMemo2: TbsSkinMemo;
    bsSkinScrollBar1: TbsSkinScrollBar;
    bsSkinMemo3: TbsSkinMemo;
    bsSkinScrollBar2: TbsSkinScrollBar;
    bsSkinTabSheet4: TbsSkinTabSheet;
    bsSkinMemo4: TbsSkinMemo;
    bsSkinScrollBar3: TbsSkinScrollBar;
    bsSkinLinkLabel1: TbsSkinLinkLabel;
    bsSkinLinkImage1: TbsSkinLinkImage;
    Label3: TLabel;
    procedure bsSkinXFormButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

implementation

uses Unit1;

{$R *.dfm}

procedure TForm3.bsSkinXFormButton1Click(Sender: TObject);
begin
close;
end;

end.