mainform.cpp

C++ BUILDER精彩编程实例集锦(源码) 第一部分 界面设计 第二部分 程序设置

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

#include <vcl.h>
#pragma hdrstop

#include "Mainform.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
   this->Memo1->Text="       细心的用户会发现， Winamp播放器窗体具有类似吸附的功能，当 Winamp播放器窗体接近某一边界时，它会像被该边界吸引似地快速移动到该边界。实际上制作这种类型的窗口并不难，要使窗口在接近某边界的时候产生一种磁性效果，必须在窗口进行快速移动之前做一个判断，判断窗口将要到达的新位置的坐标值是否小于该范围（即磁性距离，大小可由自己定义）。但是，在C++Builder中并没有窗体移动事件，因此必须自己在程序里面拦截窗体的移动消息。要在程序里拦截窗体移动消息，只需要重载WndProc这个函数即可。";
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn3Click(TObject *Sender)
{
   this->Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ //文字向上滚动
  SendMessage(this->Memo1->Handle,WM_KEYDOWN,VK_PRIOR,0);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::BitBtn2Click(TObject *Sender)
{ //文字向下滚动
  SendMessage(this->Memo1->Handle,WM_KEYDOWN,VK_NEXT,0);
}
//---------------------------------------------------------------------------