unit1.cpp

BCB 的数控实验的子程序

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

#include <vcl.h>
#pragma hdrstop

#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------


void __fastcall TForm1::Edit1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
if (Button==mbLeft )
   ((TEdit*)(Sender))->BeginDrag(False,-1);




}
//---------------------------------------------------------------------------

void __fastcall TForm1::Memo1DragOver(TObject *Sender, TObject *Source,
      int X, int Y, TDragState State, bool &Accept)
{
if (Source ->ClassNameIs("TEdit"))

  Accept=True;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1DragDrop(TObject *Sender, TObject *Source,
      int X, int Y)
{
if (     (Sender->ClassNameIs("TMemo"))    )&&(   Source->ClassNameIs("TEdit")   )

(  (TMemo*)(Sender)  )->Lines->Add( (   (TEdit*)(Source)  )->Text);



}
//---------------------------------------------------------------------------