LabelDragOver - ako ho spustiť

[Stanislav Hruška]

Na formulári má dva podformuláre.
Ľavý: VST
Pravý: dynamicky generované komponenty. Okrem iného TLabel - viď nápis Nothing
Label má priradenú udalosť LabelDragOver.
.
Ťahám z VST uzol ponad Label a potrebujem, aby sa spustili udalosti Label.OnDragOver a LabelOnDragDrop. Pri ťahaní uzlov medzi VST mi to funguje automaticky.
Čo musím urobiť pre Label?
Momentálne som sa pustil do
https://docwiki.embarcadero.com/RADStudio/Alexandria/en/Implementing_Drag_and_Drop_in_Controls
Neviem ako to pochopím a ako sa mi bude dariť.

[Stanislav Hruška]

Klasika. Odpoveď je: DragType = dtVCL.
Predvolene je dtOLE. A nie je to prvý krát 

Ale to mám! Je tam nejaká iná zrada. Určite sú za tým podformuláre.

[Stanislav Hruška]

Zistil som dôvod nefunkčnosti. Je ním TBevel. Ak ho zruším, tak to funguje.
Takže som to našiel. Musel som zmeniť miesto kedy ho vytváram 
Je to po vytvorení a nastavení všetkých vlastností panela. Ten je Parent pre všetky komponenty bunky.
Spadol mi kameň zo srdca.