娱乐一下，窗口跳舞

luoshupeng 2008-12-31 11:07:09

看代码吧。

.h 头文件

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



#ifndef Unit1H

#define Unit1H

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

#include <Classes.hpp>

#include <Controls.hpp>

#include <StdCtrls.hpp>

#include <Forms.hpp>

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

class TForm1 : public TForm

{

__published:	// IDE-managed Components

    TEdit *Edit1;

    TEdit *Edit2;

    TButton *Button1;

    TLabel *Label1;

    TLabel *Label2;

    void __fastcall Button1Click(TObject *Sender);

    void __fastcall Edit1KeyPress(TObject *Sender, char &Key);

    void __fastcall FormShow(TObject *Sender);

private:	// User declarations

public:		// User declarations

    __fastcall TForm1(TComponent* Owner);

};

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

extern PACKAGE TForm1 *Form1;

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

#endif

.cpp 实现文件

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



#include <vcl.h>

#pragma hdrstop



#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

    : TForm(Owner)

{

}

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



void __fastcall TForm1::Button1Click(TObject *Sender)

{

    int nTime = StrToInt(Edit1->Text);

    int nArea = StrToInt(Edit2->Text);

    if ( (nTime<0||nTime>20) ||(nArea>20||nArea<0) )

    {

        ShowMessage("输入错误,请输入1－20之间的数");

        return;

    }

    for (int i=0;i<nTime;++i)

    {

        MoveWindow(this->Handle, this->Left-nArea, this->Top-nArea, this->Width, this->Height, true);

        Sleep(20);

        MoveWindow(this->Handle, this->Left+nArea, this->Top+nArea, this->Width, this->Height, true);

        Sleep(20);

        MoveWindow(this->Handle, this->Left-nArea, this->Top-nArea, this->Width, this->Height, true);

        Sleep(20);

        MoveWindow(this->Handle, this->Left+nArea, this->Top+nArea, this->Width, this->Height, true);

        Sleep(20);

        MoveWindow(this->Handle, this->Left, this->Top, this->Width, this->Height, true);

    }

}

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



void __fastcall TForm1::Edit1KeyPress(TObject *Sender, char &Key)

{

    //控制Edit1只能输入数字

    if ( (Key<'0'||Key>'9') && (Key != '\b') )

    {

        Key = 0;

    }

}

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

void __fastcall TForm1::FormShow(TObject *Sender)

{

    //控制Edit2只能输入数字

    SetWindowLong(Edit2->Handle, GWL_STYLE, GetWindowLong(Edit2->Handle,GWL_STYLE)|ES_NUMBER);

}

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