Drag&Drop С++ Builder

[andrei1994]

Здраствуйте. Помогите сделать лабораторную. Используя Drag&Drop, сделать возможным перетягивание выделенного текста между компонентами TMemo, TListBox и TEdit.Не получается сделать для перетягивания выделенного текста

[WorldMaster]

Где наработки?

[andrei1994]

void __fastcall TForm1::MyMemoDragOver(TObject *Sender, TObject *Source, int X, int Y,
TDragState State, bool &Accept)
{
Accept = Source->ClassNameIs("TMemo");
}

void __fastcall TForm1::MyMemoDragDrop(TObject *Sender, TObject *Source,
int X, int Y)

{
TMemo *Dst = dynamic_cast<TMemo*>(Sender);
TMemo *Src = dynamic_cast<TMemo*>(Source);
int i = LOWORD(Dst->Perform(EM_CHARFROMPOS, 0, MAKELPARAM(X, Y)));

if (Src == Dst && i >= Src->LastSelStart && i <= Src->LastSelStart + Src->LastSelLength - 1)
return;

Dst->Text = Dst->Text.SubString(1, i) + Src->SelText +
Dst->Text.SubString(i + 1, Dst->Text.Length() - i);
String s = Src->Text;
s = s.Delete(Src->LastSelStart + 1, Src->LastSelLength);
Src->Text = s;
}


// Это добавляем прямо перед описанием класса формы в h-файле проекта
namespace TMemo_DragDrop
{
class TMemo : public Stdctrls::TMemo
{
typedef Stdctrls::TMemo Inherited;

int FLastSelStart;
int FLastSelLength;

__published:
__property int LastSelStart = {read = FLastSelStart, write = FLastSelStart};
__property int LastSelLength = {read = FLastSelLength, write = FLastSelLength};

private:
BEGIN_MESSAGE_MAP
VCL_MESSAGE_HANDLER(WM_LBUTTONDOWN, TWMLButtonDown, WMLBUTTONDOWN_Proc)
END_MESSAGE_MAP(Inherited)

void __fastcall WMLBUTTONDOWN_Proc(TWMLButtonDown &message)
{
if (SelLength > 0)
{
int i = LOWORD(Perform(EM_CHARFROMPOS, 0,
MAKELPARAM(message.XPos, message.YPos)));
LastSelStart = SelStart;
LastSelLength = SelLength;
if (i >= SelStart && i <= SelStart + SelLength - 1) BeginDrag(true);
else Inherited::Dispatch(&message);
}
else Inherited::Dispatch(&message);
}

public:
__fastcall virtual TMemo(System::Classes::TComponent* AOwner)
: Stdctrls::TMemo(AOwner)
{
}
};
}
#define TMemo TMemo_DragDrop::TMemo

// Дальше твоя форма, без изменений ...
class TForm1 : public TForm
// ...

[andrei1994]

это между Memo, а мне нужно между Memo, ListBox, Edit

[andrei1994]

подскажите как с ListBox передать текст в Edit и очистить в листбоксе что передал в едит?