J jackliu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-09 #1 有那位知道那里有或提供类似DBNavigator的中文控件,其中按钮带图标,就如BitBtn类的。 如有源代码则更好。
N NeutronDelphi Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #2 随便说一句 DBNavigator有Hints属性,标识每一个按钮的提示,你可以把他改成中文提示
J jackliu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #3 to NeutronDelphi, 谢谢,改Hints我知道,可是我还是希望是中文按钮+图标的
小 小李飞哥 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #4 我是自已封装了一个这样的控件,而且可以自由加减按钮,非常方便 []
A aware Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-10 #5 在表单的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;
在表单的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;
B BlueWin Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-12 #8 添加一个ActionList,在actionList里添加Dataset部分的standard,就可以随便你怎么用.
J jackliu Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-14 #10 答对者有分,提供资料者也有分,aware老兄的办法比较好,可我还是想寻找这样的控件,能提供源代码更好
P p96114 Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-14 #11 老兄,这样的事儿也要控件,自己建挺好的 用ACtionList所有的问题都解决了,很方便 不要这么懒三! 反而走了不少的弯路! DELPHI自身已经提供了很多功能,解决大部分问题已足矣!
S seraph_q Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-14 #12 哪就自己做啦!就从DBNavigator继承,然后重载OnCreate,按照aware的方法 把Caption改过来就好了
B BlueWin Unregistered / Unconfirmed GUEST, unregistred user! 2003-03-18 #14 为什么没有人响应我的方法呢? 不要把简单的问题复杂化嘛。