Delphi中 为DBNavigator的按钮加中文

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

转载于:https://www.cnblogs.com/wxb-km/p/3477771.html