unit1.~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)
{
Num=0;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Timer1Timer(TObject *Sender)
{  
Label1->Caption=IntToStr(Form1->Top);
 if (Form1->Top<20&&Form1->Width!=Screen->Width)
  {
   Form1->Height=20;
  }
 else
   {
    Form1->Height=200;
   }

}
//---------------------------------------------------------------------------
 void __fastcall TForm1::AppMessage(tagMSG &Msg,bool &Handled)
{
 if (Form1->Top<20&&Form1->Width!=Screen->Width)
  {
   Form1->Height=10;
  }
 else
   {
    Form1->Height=200;
   }
Num++;
Label2->Caption=AnsiString(Num);
Handled=false;
}
//----------------------------------------------------------------------------






void __fastcall TForm1::FormCreate(TObject *Sender)
{
 Application->OnMessage=AppMessage;        
}
//---------------------------------------------------------------------------