去掉DBGrid的滚动条(ScrollBar) (50分)

  • 主题发起人 主题发起人 zheng
  • 开始时间 开始时间
Z

zheng

Unregistered / Unconfirmed
GUEST, unregistred user!
谁能告诉我怎样将Delphi 3的“DBGrid”的右、下的滚动条(ScrollBar)去掉,以及将它的网格线去掉,新控件也可以,最好有源码。
 
DBGRID.Option中dscolline:=false,dsrowline:=false
可去掉网格线.
控制行数及列数可使滚动条不见.
 
ShowScrollBar(dbgrid1.Handle,SB_BOTH,false);隐藏
第2个参数可以是SB_BOTH,SB_CTL,SB_HORZ,SB_VERT
ShowScrollBar(dbgrid1.Handle,SB_BOTH,true);显示

 
都被说了,再告诉也是重复信息.
 
格式为:
ShowScrollBar(Hwnd:HWND;wBar:Integer;bShow:LongBool);
第2个参数应为整数, delphi中定义了以下几个值:
SB_HORZ = 0;(水平方向)
SB_VERT = 1;(竖直方向)
SB_CTL = 2;(设为false 的话,啥都看不到了)
SB_BOTH = 3;(都)
 
dbgrid的滚动条(竖直方向)只能在上中下三个位子上
停留。挺讨厌的,有没有办法让它平滑一些?
 
urus:没有的事,滚动条可以单条记录的移动,
也可以象翻页式的移动.
 
to yoyoyo: 我没说记录不可以移动,是说滚动条只能
在中下三个位子上停留
 
urus的意思是"平滑"移动.
 
请打开delphi4/source/vcl/dbgrids.pas,
阅读TCustomDBGrid.UpdateScrollBar过程,
其实TDBGrid同TCustomDBGrid没有区别,只是
声明published中property有不同。

其实,对于TDataSet.IsSequenced,则ScrollBar能smooth scroll;
而对于TDataSet.IsSQLBased,则只能有顶、中、底三种状态。

对这种组件的修改比较麻烦,因为这个过程是private过程,可能需要
你修改源码了。
 
如果可以做到象速达那样Dbgrid中有个 合计,
而且滚动平滑才叫酷!!1
 
这个可以inherited TDBGrid,但对于产品可就
显得不太美观了. 实际上,我见不少公司是用
TStringGrid作输入界面的,当然比较麻烦了
 
DXDBGrid is good for use
 
上面的答案应该够了吧!
 
请问cytown,该函数在实际编程中用在哪种事件中,能不能写一段例程?
 
接受答案了.
 
怎样才能取得我自己编的程序中的图标等的资源编号?
 

Similar threads

D
回复
0
查看
767
DelphiTeacher的专栏
D
D
回复
0
查看
809
DelphiTeacher的专栏
D
D
回复
0
查看
1K
DelphiTeacher的专栏
D
D
回复
0
查看
777
DelphiTeacher的专栏
D
后退
顶部