|
현제 판넬 을 누르면 밑으로내려가고 한번더누르면 올라가게 짜고있습니다
근데 그게
판넬1
판넬2
인경우 판넬1을 클릭하면 동시에내려가야하며
판넬1
판넬2
의 경우 판넬2 누르면 둘다 올라가야합니다,
현제제가 짠소스는
-------------------
//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int sw=0 ,a,sf,b=56,sg,pat,pay,sh=0,d;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel3Click(TObject *Sender)
{
Timer1->Enabled=true;
pat=1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
if(pat==1)
{
Panel3->Top=b;
if(sf==0 && b<=416) // 내리기
{
b++;
if(sf==0 && b==416) // sf=1
{
sf=1;
pat=0;
Timer1->Enabled=false;
}
}
else if(sf==1 && b>=56) //올리기
{
b--;
if(sf==1 && b==56)
{
sf=0;
pat=0;
Timer1->Enabled=false;
}
} ///////////판넬2
if(pay==1)
{
Panel2->Top=a;
if(sg==0 && a<=360) // 내리기
{
a++;
if(sg==0 && a==360) // sg=1
{
sg=1;
pay=0;
Timer1->Enabled=false;
}
}
}
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Panel2Click(TObject *Sender)
{
Timer1->Enabled=true;
pay=1;
}
//---------------------------------------------------------------------------
|