Drag&Drop im TVirtualStringTree

[DGL-luke]

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.