formani.cpp

强大的皮肤控件 能做出美观的界面

//---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "formani.h"
#include "Ani.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "KsSkinButtons"
#pragma link "KsSkinEdits"
#pragma link "KsSkinForms"
#pragma link "KsSkinGroupBoxs"
#pragma link "se_controls"
#pragma resource "*.dfm"
TfrmAniDemo *frmAniDemo;
//---------------------------------------------------------------------------
__fastcall TfrmAniDemo::TfrmAniDemo(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TfrmAniDemo::SeSkinButton2Click(TObject *Sender)
{
  Close();
}
//---------------------------------------------------------------------------
void __fastcall TfrmAniDemo::SeSkinButton1Click(TObject *Sender)
{
  //Show Ani
  AniForm = new TAniForm(this);
  //AniForm->SkinForm->ShowAnimation = kaRandom;//TKsAnimation(SeRadioGroup1->ItemIndex);
  //AniForm->SkinForm->ShowAnimationTime = StrToInt(edTime->Text);
  AniForm->ShowModal();
  delete AniForm;

}
//---------------------------------------------------------------------------