Question

三天起名字，进来。这是unit2的

unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, bsSkinCtrls, bsSkinShellCtrls, bsSkinData,
BusinessSkinForm, Mask, bsSkinBoxCtrls;

type
TForm2 = class(TForm)
bsSkinButton2: TbsSkinButton;
bsSkinButton3: TbsSkinButton;
bsSkinOpenDialog1: TbsSkinOpenDialog;
bsBusinessSkinForm1: TbsBusinessSkinForm;
bsSkinData1: TbsSkinData;
bsCompressedStoredSkin1: TbsCompressedStoredSkin;
bsSkinGroupBox1: TbsSkinGroupBox;
bsSkinStdLabel1: TbsSkinStdLabel;
bsSkinEdit1: TbsSkinEdit;
bsSkinButton1: TbsSkinButton;
procedure bsSkinButton3Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation
uses unit1;
{$R *.dfm}

Answer 1

这个没问题。