hallo,
du brauchst da ein element, das das Interface IDropSource implementiert. Das Form tut das anscheinend nicht.
Du must wahrscheinlihc die
Unit ActiveX dazu einbinden, mach dann mal folgendes:
WO in deinem Delphi-Quelltext die Form-Klasse deklariert wird:
TForm1 = class (TForm)
daraus machst du:
TForm1 = class (TForm, IDropSource)
Wenn du eine Delphi-Version >= Professional hast, reicht ein beherzter Druck auf "Strg+Shift+C" und du hast deine Stubs da.
Eventuell solltest du statt dem "self" das du übergibst, einmal versuchen, direkt den VirtualStringTree zu übergeben - kann mir gut vorstellen, dass der das schon implementiert.