formani.pas

来自「小区水费管理系统源代码水费收费管理系统 水费收费管理系统」· PAS 代码 · 共 58 行

unit formani;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  se_controls, KsSkinForms, KsSkinGroupBoxs, KsSkinEdits, KsSkinButtons,
  StdCtrls, KsSkinSpinEdit, KsSkinComboBoxs, KsSkinLabels;

type
  TAniDemo = class(TForm)
    SeSkinButton1: TSeSkinButton;
    SeSkinButton2: TSeSkinButton;
    SeSkinForm1: TSeSkinForm;
    SeSkinGroupBox1: TSeSkinGroupBox;
    SeSkinLabel1: TSeSkinLabel;
    SeSkinComboBox1: TSeSkinComboBox;
    SeSkinSpinEdit1: TSeSkinSpinEdit;
    SeSkinLabel3: TSeSkinLabel;
    SeSkinLabel2: TSeSkinLabel;
    SeSkinSpinEdit2: TSeSkinSpinEdit;
    procedure SeSkinButton2Click(Sender: TObject);
    procedure SeSkinButton1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AniDemo: TAniDemo;

implementation

uses Main, Ani;

{$R *.DFM}

procedure TAniDemo.SeSkinButton2Click(Sender: TObject);
begin
  Close;
end;

procedure TAniDemo.SeSkinButton1Click(Sender: TObject);
begin
  { Show Ani }
  AniForm := TAniForm.Create(Self);
  AniForm.SkinForm.Animation.Enabled := SeSkinGroupBox1.Checked;
  AniForm.SkinForm.Animation.Time := SeSkinSpinEdit1.AsInteger;
  AniForm.SkinForm.Animation.Effect := TkeEffect(SeSkinComboBox1.ItemIndex);
  AniForm.SkinForm.Animation.TileCount := SeSkinSpinEdit2.AsInteger;

  AniForm.ShowModal;
  AniForm.Free;
end;

end.