유난히 시간도 안가고, 개발도 하기 귀찮을 오늘...

후임들의 교육과 회사내 재미를 유발하기 위해 한30분 투자해보았습니다. :)

전 빌더배우면서 이런놀이 많이 했는데~ 요샌 뭐하고 시간들 보내시나요~

고수들은 여기서 <-백~

뭐 소스는 간단합니다~


 

void __fastcall TForm1::FormCreate(TObject *Sender)
{
    ShowWindow(Application->Handle, SW_HIDE);   //작업표시줄에 안나오게 해야 당황하겠죠?
    Application->ShowMainForm = false;          //메인폼은 숨겨둡니다. 그래야 숨어서 딴짓을해야하기때문에~ :)
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Timer1Timer(TObject *Sender)
{
    TForm1 *frm[200];
    int i, w, h, wmax, hmax, wcnt = 0, hcnt = 0; 

    switch(m_nCnt) {   //전역변수 하나 썻음다 걍.. 1분, 10분, 1시간 한번 나와서 놀라게하고 다놀았으니 끄기위한..
        case 0:
            Timer1->Interval = 60000; //1min
            break;        
        case 1:
            Timer1->Interval = 600000;  //10min
            break;
        case 2:
            Timer1->Interval = 3600000;  //1hour
            break;
        case 3:
            Timer1->Enabled = false;
            Close();
            break;
    }
    m_nCnt++;

    w = Width; //걍 보기편하게..
    h = Height;
    wmax = Screen->Width/w;   //가로로 몇개
    hmax = Screen->Height/h;  //새로로 몇개

    for(i = 0; i < wmax*hmax; i++) {  //가로*세로 만큼
        frm[i] = new TForm1(Application);   //폼생성
        delete frm[i]->Timer1;    //타이머 안지우면 엄청난 폼들이 컴터를 먹어버릴껍니다.

        if(i%wmax == 0 && i > 0) { //이부분을 잘 생각해보세요
            wcnt = 0;
            hcnt++;
        }
        frm[i]->Left = w*wcnt;
        frm[i]->Top += h*hcnt;
        wcnt++;

        frm[i]->Show();
    }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{        //Move&Drag by Image//
    ReleaseCapture();
    Perform(WM_SYSCOMMAND, 0xf012, 0);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Image1DblClick(TObject *Sender)
{
    Close();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    Close();   
}
//---------------------------------------------------------------------------



그럼 전이만 퇴근 ~~
즐프~하세요들~ :)