用TPanningWindow为网格控件添加鼠标平移功能
由 gougou 于 星期六, 2006-11-18 16:31 发表
前两天在写一个新的ColumnGrid的时候无意中发现了TPanningWindow这个有趣的类,这个类好像是从Delphi2006开始添加的,可以给TStringGrid添加用鼠标平移的功能,使用非常简单,在项目中Uses IMouse这个单元。然后运行使用了TStringGrid的程序,在StringGrid中点击鼠标中间的按钮,就会出现一个平移的光标,如下图示意。效果还不错吧:)
[img_assist|nid=166|title=TPanningWindow|desc=|link=node|align=left|width=100|height=58]