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

zhujiangxiong 2003-10-21 11:02:04

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

...全文

192 20 打赏收藏转发到动态举报

写回复

用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