?
Hallo,
hab mir kurz einen anderen Beitrag angeguckt und gemerkt, dass es für mein Problem ausreicht. War wohl kurz auf dem Holzweg unterwegs. *Sorry*
So funktioniert es:
void __fastcall TForm1::cwDragDrop(TObject *Sender, TObject *Source, int X,
int Y)
{
int aktzeile = cw->CaretPos.y;
int aktpos = cw->CaretPos.x;
AnsiString st=ListBox1->Items->Strings[ListBox1->ItemIndex]);
cw->Lines->Strings[aktzeile] = cw->Lines->Strings[aktzeile].Insert(st, aktpos);
cw->SelStart=cw->Text.Length()-1;
cw->SetFocus();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cwDragOver(TObject *Sender, TObject *Source, int X,
int Y, TDragState State, bool &Accept)
{
Accept = Source->ClassNameIs("TListBox");
}
//---------------------------------------------------------------------------
Thema damit erledigt...