求一类似DBNavigator的中文控件,其中按钮带图标,就如BitBtn类的(50分)

  • 主题发起人 主题发起人 jackliu
  • 开始时间 开始时间
J

jackliu

Unregistered / Unconfirmed
GUEST, unregistred user!
有那位知道那里有或提供类似DBNavigator的中文控件,其中按钮带图标,就如BitBtn类的。
如有源代码则更好。
 
随便说一句
DBNavigator有Hints属性,标识每一个按钮的提示,你可以把他改成中文提示
 
to NeutronDelphi,
谢谢,改Hints我知道,可是我还是希望是中文按钮+图标的
 
我是自已封装了一个这样的控件,而且可以自由加减按钮,非常方便
[:D]
 
在表单的create事件写这段代码
var
i:integer;
begin
for I := 0 to DBNavigator1.ComponentCount - 1 do
if DBNavigator1.Components is TNavButton then begin
case TNavButton(DBNavigator1.Components).Index of
nbFirst: TNavButton(DBNavigator1.Components).Caption := '首页';
nbPrior: TNavButton(DBNavigator1.Components).Caption := '上页';
nbNext: TNavButton(DBNavigator1.Components).Caption := '下页';
nbLast: TNavButton(DBNavigator1.Components).Caption := '末页';
nbInsert: TNavButton(DBNavigator1.Components).Caption := '新增';
nbDelete: TNavButton(DBNavigator1.Components).Caption := '删除';
nbEdit: TNavButton(DBNavigator1.Components).Caption := '修改';
nbPost: TNavButton(DBNavigator1.Components).Caption := '存档';
nbCancel: TNavButton(DBNavigator1.Components).Caption := '取消';
nbRefresh: TNavButton(DBNavigator1.Components).Caption := '刷新';
end;
end;

end;
 
原来是可以这样改的啊
 
收到、学习!
 
添加一个ActionList,在actionList里添加Dataset部分的standard,就可以随便你怎么用.
 
有人回答了,唉没分了。
 
答对者有分,提供资料者也有分,aware老兄的办法比较好,可我还是想寻找这样的控件,能提供源代码更好
 
老兄,这样的事儿也要控件,自己建挺好的
用ACtionList所有的问题都解决了,很方便
不要这么懒三!
反而走了不少的弯路!
DELPHI自身已经提供了很多功能,解决大部分问题已足矣!
 
哪就自己做啦!就从DBNavigator继承,然后重载OnCreate,按照aware的方法
把Caption改过来就好了
 
我有这样的控件,完全源代码。[:D]
想要吗?
 
为什么没有人响应我的方法呢?
不要把简单的问题复杂化嘛。
 
to:thx1180
给我一份,谢谢!
 
等一等,直接贴上来吗?
 
小李飞哥:
那个控件给我一份,可以吗?
谢谢!
 
后退
顶部