本人近来做一些组件,有一个问题始终得不到解决:DBGRID本身的3D效果看起来实在是不舒服,我想改为平面效果(主要是滚动条,甚至滚动条可以添加自己想要的颜色,而

  • 主题发起人 主题发起人 only_delphi
  • 开始时间 开始时间
我上面的代码运行确实看不到效果,但你把它写成组件安装上去就行了

或者:
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mygrid:=tmygrid.create(Self);
mygrid.parent:=self;
mygrid.left:=0;
mygrid.top:=0;
mygrid.Height:=300;
mygrid.Options:=mygrid.Options-[dgIndicator];
mygrid.DataSource:=DataSource1;
end;
看看效果也好——:)
feier_jun的那段代码,我用d4没有试出来,不知道是不是 d4以上就有了
 
感谢热心的hongxing_dl 组件写成安装了
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
mygrid:=tmygrid.create(Self);
mygrid.parent:=self;
mygrid.left:=0;
mygrid.top:=0;
mygrid.Height:=300;
mygrid.Options:=mygrid.Options-[dgIndicator];
mygrid.DataSource:=DataSource1;
end;
这段代码也写在了form里,可问题是第一行就通不过啊
 
呵呵—既然你都安装上去了,那就用不着上面的代码了,直接在控件面板上将它拖到你的form上就可以了嘛
 
谢谢你的热心人,我想你没有安装,不然,你是不会觉察不到其中的bug的,
我现在有点苦笑不得。
你自己试一下你的代码吧,要不然我都被你给折腾疯了
 
真的没有人解决此问题吗,如果有符合我的要求的控减也可
发过来就结贴,
my Email:sayyousayme@wihz.com
 
还没找着吗??
http://www.51delphi.com/delphi/soft?type=数据库
2003-10-15 Ehlib 3.2 数据库 FS(D4-7C456) 675K 59094 查看 评论(+237
要先注册才能下载,免费的
 
我下载了,可是是dpk文件,且安装不上。提示:
[Fatal Error] EhLib60.dpk(50): File not found: 'DBSumLst.dcu'
寻找路径我已经加上,怎么办
 
only_delphi:你可参照这篇文章进行按装:

Delphi 7中的安装方法

1. 把EhLib中的common和DataService文件拷贝到
Delphi7目录中.

2.在TOOLS->Environment Options->Library->Library Path中添入EHLIB路径。

3.打开新建文件夹中的EHLIB70.DPK,Compiler

4.打开Ehlib中的DclEhLib70.DPK,Compiler,Install

5、安装完成。



3.


4. 在Delphi 7中打开EhLib70.dpk,编译,但不要安装。

5. 在Delphi 7中打开DclEhLib70.dpk,编译并安装。


6. 组件面板中出现一个EhLib的组件页。


7. 打开附带的DEMOS,编译并运行,测试安装成功。
 
关注,安装看这个,很详细
http://www.delphibbs.com/keylife/iblog_show.asp?xid=4268
 
各位,安装基本组件,我还是清楚的,各位有能安装上去的吗,有的话,发来,送分!
 
可能是组件根本没有需要的文件
提示
[Fatal Error] EhLib60.dpk(50): File not found: 'DBSumLst.dcu'
我在该文件夹查找DBSumLst.dcu根本找不到,那位有该组件
 
文件名是DBSumLst的,后缀名是其它的也中呀!
 
seeyouknowme 说的对啊,
app2001,你说的后缀名是其他的也行,是什么意思,真把我给搞梦了
 
晕,seeyouknowme及only_delphi:你们到底有没有仔细看我的那帖?
那不是一般控件的安装方法,而是针对ehlib的安装步骤啊,再次晕。
 
换一下你的系统中有没有文件名为DBSumLst,后缀名是什么不管它,找到后将该文件所在目录添加到libary path中去
 
app2001我加了呀,不行啊
 
我也做过一个DBGrid,直接从TCustomControl派生的。开始也是闪烁得厉害。
后来我用了一种变通的方式。不再控件本身的Canvas上画外观。而是另外建立一个TBitmap对象,在他的TCanvas上画出来。然后一次全部把该BitMap画到控件的Canvas上去。一点闪烁也没有了。
还有把DoubleBuffered设置为True也会减缓闪烁的现象。道理和我上面说得差不多
 
mygrid.parent:=self;//??????????
自己做自己的容器??????错了吧。。那他在FORM上放在那里?FORM如何管理它???
。PARENT:=FORM;或者PANEL什么的看看。。
 
这个问题关键滚动条是很难平衡!
用DevExpres的GRID可以做到,可惜~~~
有个API可以让滚动变平,可惜大平了,不是二维的!
如果自己动手改造并不容易的!
除非去用那些BUS~~~什么的东东!

 
后退
顶部