u8_8_1.cpp

《C++ Builder 5程序设计——基础教学篇》程序源代码2.

//---------------  u8_8_1  ------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop

#include "u8_8_1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
int x1,y1;
Tf8_8_1 *f8_8_1;
//---------------------------------------------------------------------------
__fastcall Tf8_8_1::Tf8_8_1(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall Tf8_8_1::imgTargetDragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
     imgSource->Visible=False;
     TImage *DestImg=(TImage *)Sender;
     DestImg->Picture=((TImage *)Source)->Picture;
 }
//---------------------------------------------------------------------------
void __fastcall Tf8_8_1::imgTargetDragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
   Accept=Source->ClassNameIs("TImage");
   switch(State)
   {
     case dsDragEnter:
        lblShow->Caption ="瞷