OnOLECompleteDrag (Main Control) example for C++ Builder

This example is to be used with the EnableOLEDragMethod (Main Control) example.

void __fastcall TForm1::LEADImage2OLECompleteDrag(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;

   str= " LEADImage2: OLE Complete Drag at pos X = " + IntToStr (X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}

void __fastcall TForm1::LEADImage1OLEDragOver(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;
   str= " LEADImage1: OLE Drag Over at pos X = " + IntToStr (X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}

void __fastcall TForm1::LEADImage1OLEStartDrag(TMouseButton Button, TShiftState Shift, int X, int Y)
{
   AnsiString str;

   str = " LEADImage1: OLE Start Drag at pos X = " + IntToStr(X) + " and pos Y = " + IntToStr (Y);
   ShowMessage ( str );
}