delphi 在 DragDrop 的时候，滚动 TreeView

内容导读

互联网集市收集整理的这篇技术教程文章主要介绍了delphi 在 DragDrop 的时候，滚动 TreeView，小编现在分享给大家，供广大互联网技能从业者学习和参考。文章包含613字，纯文字阅读大概需要1分钟。

内容图文

在 DragDrop 的时候，滚动 TreeView

当高度不够的时候

 
 
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)
  elseif (TreeView1.Height - y <15) then
   { On the lower edge - should scroll down }
      SendMessage(TreeView1.Handle, WM_VSCROLL, SB_LINEDOWN, 0);
 
 
 
    Accept := Source = Sender;
    ifnot Accept then exit;
end;

来自为知笔记(Wiz)

原文：http://www.cnblogs.com/xe2011/p/3884405.html

内容总结

以上是互联网集市为您收集整理的delphi 在 DragDrop 的时候，滚动 TreeView全部内容，希望文章能够帮你解决delphi 在 DragDrop 的时候，滚动 TreeView所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错，欢迎将互联网集市网站推荐给程序员好友。

内容备注

版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 gblab@vip.qq.com 举报，一经查实，本站将立刻删除。

内容手机端

---