“DBNavigator”上的箭头能不能改成中文啊？？

Question

“DBNavigator”上的箭头能不能改成中文啊？？
比如“第一条”“第二条”“编辑”等

Answer 1

可以改它的Hint 要在上面直接改就要改控件罗！我觉的就用Hint可以了！ 大家都知道是什么意识！ 用Hint说明一下也行了！

Answer 2

我没有重新写控件的能力（刚学DELPHI），不知道重新写控件需要多少水平。我在想自己嫩写控件等于自己可以做编程软件了（比如DELPHI）

Answer 3

修改DBNavigator的Hints属性即可
First record//首笔
Prior record//前一笔
Next record//下一笔
Last record//末笔
Insert record//  插入
Delete record//删除
Edit record//编辑
Post edit//提交
Cancel edit//撤消
Refresh data //  刷新
在上面直接改需要重写控件。

Answer 4

楼上的能写的具体点吗？在HINTS中要输入什么才能实现呢？

Answer 5

自己用button来写每个的操作吧，比如“下一个”，就用一个button，用代码来实现DBNavigator的所有功能，其实也不一定要用button，其他的能实现的当然可以，要想好看的话，也可以考虑用其他的，比如说toolbar。

Answer 6

是啊！ 要想直接改只能自己写控件了！ 不过这个控件很简单的！delphi里有现成的命令！first，last，next

Answer 7

楼主可以自己用button调用相应的事件；^_^；你在上面写法文都可以；

Answer 8

用button很好，用hint，要打开hint选项，然后输入hint。

Answer 9

还不如自己搞个加图片的button。多好
first、next、last、edit、insert、post等等

Answer 10

用按钮控制DBGRID里的first，last，next记录怎么写（代码）啊！请教ing？

Answer 11

我现在不用BNavigator来控制DBGRID里的记录了，要用按钮来控制了。谁能告诉我First、 Prior 、Next、 Last 、Delete Edit Post、 Cancel、 Refresh 这些按钮的代码具体怎么写吗？

Answer 12

修改$(DELPHI).res中相应按钮的bitmap即可 
看看源代码就知道了。varBtnTypeName: array[TNavigateBtn] of PChar = ('FIRST', 'PRIOR', 'NEXT','LAST', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH');typeTNavigateBtn = (nbFirst, nbPrior, nbNext, nbLast,nbInsert, nbDelete, nbEdit, nbPost, nbCancel, nbRefresh);// 初始化按钮procedure TDBNavigator.InitButtons;varI: TNavigateBtn;Btn: TNavButton;X: Integer;ResName: string;beginMinBtnSize := Point(20, 18);X := 0;for I := Low(Buttons) to High(Buttons) dobeginBtn := TNavButton.Create (Self); ); // TNavButton 是 TSpeedButton 的子类，其实就是 TSpeedButtonBtn.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 了，一般情况下访问不到，要玩一点技巧！protectedButtons: array[TNavigateBtn] of TNavButton;这样做就行了：typeTMyNavgator = class(TDBNavigator); // Delphi 默认在同一个单元里的类可以互相访问其 protected 属性implementation{$R *.DFM}procedure TForm1.FormCreate(Sender: TObject);beginTMyNavgator(DBNavigator1).Buttons[nbFirst].Glyph.LoadFromFile('D:.bmp');end;