Превъртане с DragDrop

Prompt как да се направи превъртане в дървовидна структура, когато има DragDrop. Тя превъртане работи за мен, но "боклуци" остава на дървото. Дори се опитах да направя пребоядиса, все още това не помогне.

процедура TMainForm1.T1DragOver (подателя, Източник: TObject, X, Y: цяло число;
Състояние: TDragState; Var Приемане: булеви);
започвам
ако (Източник е TLsFileListView28) или (Източник е TDATreeView), след това
Приемане: = вярно
още
започвам
Accept: = False;
изход;
приключи;
ако Y> T1.Height - Sb1.Height - 10 тогава
T1.Perform (WM_VSCROLL, SB_LINEDOWN, 0)
още
ако Y <10 then
T1.Perform (WM_VSCROLL, SB_LINEUP, 0);
T1.Repaint;
приключи;

Т1: TDATreeView;
SB1: TScrollBar;
TDATreeView различен от обичайния с дървовидна структура само защото ви позволява да направите DragDrop в себе си.

И заедно на втория въпрос. Как мога да разбера каква ще е височината на хоризонталните прелистване по подразбиране при сегашното разделителната способност на екрана? И след това трябва да се сложи невидими ивици върху формата и да я вземете Височина.

По втория въпрос.
GetSystemMetrix SM_CXVSCROLL, SM_CYVSCROLL

и не сте се опита да направи T.ScrollBy (DX, DY)?

актуализация sky3d - функция, наречена GetSystemMetrics, желания параметър SM_CYHSCROLL

Забавянето не помага. Какви са други предложения?

и тук забавянето? Сън сте се опитали да направят нещо?

и ако направите точно както в този пример на VB - на DragOver включва skrolliruem таймер и таймер събитие?

Не сън. Опитах се да се свърже с таймера, както в този пример. Сега се опитвам просто да преведе цялата извадка от VB до Делфи.

Той страдаше пример в Делфи, 12:59. Същата глупост Оказва се :(.
Мога да изпратя снимка на това е интересно. Трябва да не се мързеливи и инсталиране на VB, за да се провери това HowTo в оригинал.

по-добре да дойде код

Странно. А версия на общите контроли имате право? Едно дърво не OwnerDraw? Имам си код работи. За всеки случай - може да се опита да замени Изпълнете

PostMessage (T1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);

Благодаря на всички, които участваха в дискусията.
Успех

Памет: 0.74 MB
Време: 0.025 гр