unit2.pas

来自「传奇1.8登陆器源代码,供大家进行研究。好」· PAS 代码 · 共 71 行

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, se_controls, KsSkinTabs, KsSkinEngine, KsSkinForms,
  KsSkinLabels, KsSkinEdits, KsSkinButtons, KsSkinComboBoxs;

type
  TForm2 = class(TForm)
    SeSkinForm1: TSeSkinForm;
    SeSkinPageControl1: TSeSkinPageControl;
    SeCustomTabSheet3: TSeCustomTabSheet;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinLabel4: TSeSkinLabel;
    SeSkinLabel5: TSeSkinLabel;
    SeSkinEdit5: TSeSkinEdit;
    SeSkinEdit4: TSeSkinEdit;
    SeSkinEdit3: TSeSkinEdit;
    SeSkinEdit2: TSeSkinEdit;
    SeSkinEdit1: TSeSkinEdit;
    SeSkinLabel6: TSeSkinLabel;
    SeSkinLabel7: TSeSkinLabel;
    SeSkinLabel8: TSeSkinLabel;
    SeSkinLabel9: TSeSkinLabel;
    SeSkinEdit9: TSeSkinEdit;
    SeSkinEdit8: TSeSkinEdit;
    SeSkinEdit7: TSeSkinEdit;
    SeSkinEdit6: TSeSkinEdit;
    SeCustomTabSheet1: TSeCustomTabSheet;
    SeSkinLabel10: TSeSkinLabel;
    SeSkinEdit10: TSeSkinEdit;
    SeSkinLabel11: TSeSkinLabel;
    SeSkinEdit11: TSeSkinEdit;
    SeSkinLabel12: TSeSkinLabel;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinEngine1: TSeSkinEngine;
    SeSkinButton2: TSeSkinButton;
    SeSkinButton1: TSeSkinButton;
    SeSkinButton3: TSeSkinButton;
    SeSkinButton4: TSeSkinButton;
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.SeSkinButton2Click(Sender: TObject);
begin
  close;
end;

procedure TForm2.SeSkinButton3Click(Sender: TObject);
begin
  close;
end;

end.