DBNavigator数据表的功能条加提示搞不定求助
本帖最后由 lxl16 于 2017-3-6 09:10 编辑DBNavigator 数据表的功能条
DBNavigator使用起来不错,但是按钮上“+”、“-”等含义对于中国的用户不习惯,
甚至不知道是什么含义
看到网上说可以加上提示,却搞不定
主是要代码,看到Type中有一行是TMyNavgator = class(TDBNavigator);
这个不知是如何加上去的,手工加,会有问题
后来听说要装第三方控件 ehlib
装上后,在启动时,会报一些下边的错
之后进到XE7,拉出那功能条,还是没成功,不知是不是和那错有关
若有关,不知如何处理,请高手指点一下,谢谢先
---------------------------------------------
另附上有人成功的相关代码
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, Grids, DBGrids, ExtCtrls, DBCtrls;
type
TMyNavgator = class(TDBNavigator);
TForm1 = class(TForm)
DBNavigator1: TDBNavigator;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
begin
TMyNavgator(DBNavigator1).Buttons.Caption:= '首条 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '上一条 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '下一条 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '末条 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '添加 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '删除 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '修改 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '提交 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '撤销 ';
TMyNavgator(DBNavigator1).Buttons.Caption:= '刷新 ';
end;
end. 这问题有没有哪位高手给指点一下呢
页:
[1]