为DBNavigator的按钮加中文

转自：http://hi.baidu.com/debiansir/item/0699f5b6bb4d99f063388e71

/*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.