TCustomControl mit DragDrop?

[HJay]

Es gibt die Prozedur TCustomControl.DragDrop(), aber alles weitere scheint zu fehlen oder ich finde es nur nicht?

Zum Beispiel bei TListBox muss man nur TListBox.DragMode := dmAutomatic setzen und TListBox.OnDragDrop und OnDragOver schreiben. Das gleiche Vorgehen geht aber nicht bei selbst abgeleiteten Klassen von TCustomControl.

Wie implementiert man in einen TCustomControl-Descendant Drag-and-Drop-Operationen?

(Delphi 6 Prof.)

[HJay]

Darf ich meine Frage noch einmal stellen? Vielleicht gibt es ja inzwischen einen Teilnehmer, der eine Idee dazu hat.

[Bummi]

TCustomControl>>TWinControl>>TControl

Die Properties sind hier schon vorhanden, nur Protected

Du brauchst sie nur im published Bereich Deiner Komponenete erwähnen:

Delphi-Quellcode:

published
property OnDragOver;
....