Прокручивать TTreeView во время перемещения

Delphi , Синтаксис , Drag and Drop

Оформил: DeeCo
Автор: http://www.swissdelphicenter.ch

procedure TForm1.TreeView1DragOver(Sender, Source: TObject; X, Y: Integer;
   State: TDragState; var Accept: Boolean);
 begin
   if (y < 15) then {On the upper edge - should scroll up }
     SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEUP, 0)
   else if (TreeView1.Height - y < 15) then { On the lower edge - should scroll down }
     SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
 end;

Статья Прокручивать TTreeView во время перемещения раздела Синтаксис Drag and Drop может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Drag and Drop ::