社区
Delphi
帖子详情
“DBNavigator”上的箭头能不能改成中文啊??
zhujiangxiong
2003-10-21 11:02:04
“DBNavigator”上的箭头能不能改成中文啊??
比如“第一条”“第二条”“编辑”等
...全文
196
20
打赏
收藏
“DBNavigator”上的箭头能不能改成中文啊??
“DBNavigator”上的箭头能不能改成中文啊?? 比如“第一条”“第二条”“编辑”等
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
20 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
dancedog
2003-10-21
打赏
举报
回复
还不如自己搞个加图片的button。多好
first、next、last、edit、insert、post等等
tulippopo
2003-10-21
打赏
举报
回复
去找找第三方控件,怎么问题都解决了,类似控件很多!
要不自己麻烦点,做几个按钮,加上去,要图片有图片,要文字有文字!几爽
oicqluck
2003-10-21
打赏
举报
回复
用button很好,用hint,要打开hint选项,然后输入hint。
47522341
2003-10-21
打赏
举报
回复
楼主可以自己用button调用相应的事件;^_^;你在上面写法文都可以;
hmzgz81
2003-10-21
打赏
举报
回复
是啊! 要想直接改只能自己写控件了! 不过这个控件很简单的!delphi里有现成的命令!
first,last,next。。。。。。
joyv
2003-10-21
打赏
举报
回复
好像要自己写!~
boom201
2003-10-21
打赏
举报
回复
自己用button来写每个的操作吧,比如“下一个”,就用一个button,用代码来实现DBNavigator的所有功能,其实也不一定要用button,其他的能实现的当然可以,要想好看的话,也可以考虑用其他的,比如说toolbar。
song0311
2003-10-21
打赏
举报
回复
楼上的能写的具体点吗?
在HINTS中要输入什么才能实现呢?
lead001
2003-10-21
打赏
举报
回复
修改DBNavigator的Hints属性即可
First record//首笔
Prior record//前一笔
Next record//下一笔
Last record//末笔
Insert record// 插入
Delete record//删除
Edit record//编辑
Post edit//提交
Cancel edit//撤消
Refresh data // 刷新
在上面直接改需要重写控件。
zhujiangxiong
2003-10-21
打赏
举报
回复
我没有重新写控件的能力(刚学DELPHI),不知道重新写控件需要多少水平。我在想自己嫩写控件等于自己可以做编程软件了(比如DELPHI)
hongqi162
2003-10-21
打赏
举报
回复
你的想在上面直接改是什么意思?想通过属性改不行,实现你说的效果需要重写控件。
zhujiangxiong
2003-10-21
打赏
举报
回复
我就是想在上面直接改!怎么做啊??
yaven365
2003-10-21
打赏
举报
回复
学习,俺没有过hint呢
hmzgz81
2003-10-21
打赏
举报
回复
可以改它的Hint 要在上面直接改就要改控件罗!
我觉的就用Hint可以了! 大家都知道是什么意识! 用Hint说明一下也行了!
zhujiangxiong
2003-10-21
打赏
举报
回复
我需要研究研究
lw549
2003-10-21
打赏
举报
回复
学习,收藏。
koma2003
2003-10-21
打赏
举报
回复
修改$(DELPHI).res中相应按钮的bitmap即可
看看源代码就知道了。
var
BtnTypeName: array[TNavigateBtn] of PChar = ('FIRST', 'PRIOR', 'NEXT',
'LAST', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH');
type
TNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,
nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);
// 初始化按钮
procedure TDBNavigator.InitButtons;
var
I: TNavigateBtn;
Btn: TNavButton;
X: Integer;
ResName: string;
begin
MinBtnSize := Point(20, 18);
X := 0;
for I := Low(Buttons) to High(Buttons) do
begin
Btn := TNavButton.Create (Self); ); // TNavButton 是 TSpeedButton 的子类,其实就是 TSpeedButton
Btn.Flat := Flat;
Btn.Index := I;
Btn.Visible := I in FVisibleButtons;
Btn.Enabled := True;
Btn.SetBounds (X, 0, MinBtnSize.X, MinBtnSize.Y);
FmtStr(ResName, 'dbn_%s', [BtnTypeName[I]]);
Btn.Glyph.LoadFromResourceName(HInstance, ResName); // 从资源文件中根据资源名字调出 TSpeedButton 的 Glyph 属性
Btn.NumGlyphs := 2;
Btn.Enabled := False;
Btn.Enabled := True;
Btn.OnClick := ClickHandler;
Btn.OnMouseDown := BtnMouseDown;
Btn.Parent := Self;
Buttons[I] := Btn;
X := X + MinBtnSize.X;
end;
Buttons[nbPrior].NavStyle := Buttons[nbPrior].NavStyle + [nsAllowTimer];
Buttons[nbNext].NavStyle := Buttons[nbNext].NavStyle + [nsAllowTimer];
end;
但是 Buttons 属性被 Protect 了,一般情况下访问不到,要玩一点技巧!
protected
Buttons: array[TNavigateBtn] of TNavButton;
这样做就行了:
type
TMyNavgator = class(TDBNavigator); // Delphi 默认在同一个单元里的类可以互相访问其 protected 属性
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph.LoadFromFile('D:.bmp');
end;
zhujiangxiong
2003-10-21
打赏
举报
回复
我现在不用BNavigator来控制DBGRID里的记录了,要用按钮来控制了。谁能告诉我First、 Prior 、Next、 Last 、Delete Edit Post、 Cancel、 Refresh 这些按钮的代码具体怎么写吗?
fhuibo
2003-10-21
打赏
举报
回复
用按钮可以吗
zhujiangxiong
2003-10-21
打赏
举报
回复
用按钮控制DBGRID里的first,last,next记录怎么写(代码)啊!请教ing?
Mongo
DB
实战之---初级篇
本课程环境:Mongo
DB
3.4.x CentOS 7.x本课程为初级课程,围绕高阶聚合函数的使用、索引的介绍及原理解析、索引优化、性能优化、副本集搭建及分布式分片集群的搭建和原理解析来对Mongo
DB
进行更深入的学习。本课程对于
DB
A、开发、BI来说是非常友善的,从是安装集群到使用集群,再到集群的优化,生产上可能遇到的情况都将在本课程中依次出现。如何优化索引,提升查询效率更是老生常谈的问题。分布式集群如何有效利用空间来换取时间上的增量,达到百万并发。学习完本课程后,同学们将对Mongo
DB
有一个系统的认识,并且对如何应用Mongo
DB
开发也会形成一套系统框架,深入学习本课程后,将掌握Mongo
DB
的大多使用场景。
CxGrid用法
CxGrid用法- - 使用cxGrid有一些时间了,在这里总结一下使用cxGrid的一些方法,希望给刚开始接触cxGrid的人一些帮助。 1.简单介绍:cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的 功能,而cxGrid1Level1右边的cxGrid1
DB
TableView1相当于
DB
Grid一样。右击c...
cxGrid的问题汇总
1. 去掉cxgrid中台头的box ,在tableview1的ptionsview的groupbybox=false;2. 在GRID footer 中加入sum(列), tableview1的optionsviewàfooter=ture然后在cxGRid1的customize..中的summary 的footer.add需要合计的列kind= skSum3. 去掉cxgrid 中的过滤
cxGrid 使用指南 1
1:cxgrid是应该数据关联的控件,类似
db
grid。2:一般用来查阅表信息,如果要修改的话,直接在上面编辑或添加非常不方便通常要放几个EDit来对选中的记录进行编辑或添加记录。因为表一般都有主键,而用cxgrid很难控制。在post之前的主键检查工作。3:由于没有直接进行编辑,而post之前又要进行主键检查工作(需要循环adoquery,此时的记录索引已经改变了)。所以我们要用一个bookma...
tcxgrid主从结构显示多行_cxGrid的使用方法(转)
1.简单介绍:cxGrid右下方的cxGrid1Level1是表示Grid表的层,cxGrid可以有多层,这相当于集合了PageControl的功能,而cxGrid1Level1右边的cxGrid1
DB
TableView1相当于
DB
Grid一样。右击cxGrid1可以添加cxGrid1Level2,右击cxGrid1Level2,可以选择Create View , Add level 或者Dele...
Delphi
5,388
社区成员
262,730
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章