Delphi中 为DBNavigator的按钮加中文

DBNavigator1.BtnClick(nbFirst);// '第一条 '
DBNavigator1.BtnClick(nbPrior);   //   '上一条 '
DBNavigator1.BtnClick(nbNext);   // '下一条 '
DBNavigator1.BtnClick(nbLast);     // '最后一条 '
DBNavigator1.BtnClick(nbInsert);   // '添加 '
DBNavigator1.BtnClick(nbDelete);// '删除 '
DBNavigator1.BtnClick(nbEdit);// '修改 '
DBNavigator1.BtnClick(nbPost);// '提交 '
DBNavigator1.BtnClick(nbCancel);// '撤销 '
DBNavigator1.BtnClick(nbRefresh);// '刷新 '

-----------------------------------

2 Delphi中 为DBNavigator的按钮加中文

Delphi中数据库控件DBNavigator使用起来不错，但是按钮上“＋”、“－”等含义对于中国的用户不习惯，甚至不知道是什么含义。改成相应含义的汉字表示出来 
 
unit Unit1;

interface

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[nbFirst].Caption:= '首条 ';
TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';
TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';
TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '末条 ';
TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';
TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';
TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';
TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';
TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';
TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';
end;
end.

 

------------------------------------------------------------------------------------------------------------------------------------

 

Delphi中数据库控件DBNavigator使用起来不错，但是按钮上“＋”、“－”等含义对于中国的用户不习惯，甚至不知道是什么含义。改成相应含义的汉字表示出来 
 
unit Unit1;

interface

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[nbFirst].Caption:= '首条 ';
TMyNavgator(DBNavigator1).Buttons[nbPrior].Caption:= '上一条 ';
TMyNavgator(DBNavigator1).Buttons[nbNext].Caption:= '下一条 ';
TMyNavgator(DBNavigator1).Buttons[nbLast].Caption:= '末条 ';
TMyNavgator(DBNavigator1).Buttons[nbInsert].Caption:= '添加 ';
TMyNavgator(DBNavigator1).Buttons[nbDelete].Caption:= '删除 ';
TMyNavgator(DBNavigator1).Buttons[nbEdit].Caption:= '修改 ';
TMyNavgator(DBNavigator1).Buttons[nbPost].Caption:= '提交 ';
TMyNavgator(DBNavigator1).Buttons[nbCancel].Caption:= '撤销 ';
TMyNavgator(DBNavigator1).Buttons[nbRefresh].Caption:= '刷新 ';
end;
end.

-----------------------------------

 

uses
  buttons


TSpeedButton(DBNavigator1.Controls[0]).Caption     :=     '第一条 ';
TSpeedButton(DBNavigator1.Controls[0]).Glyph         :=     nil;       //去掉图标