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[nbFirst].Glyph:=nil;   //不显示图标 
   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 修改ie首页代码

Delphi xe6 android下捕获功能键

Delphi设置光标在edit右边

Delphi 中的文件系统进行unicode标准化

Delphi datasnap 上传/下载大文件(本demo以图传片文件为例)

Delphi xe 取得 app 自己的版本号 (狠跨 4 个平台)

Delphi 创建文件夹并打开

Delphi 10 seattle android应用程序使用toast

Delphi 如何从文本内容中删除指定行

Delphi 遍历注册表

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi DBNavigator控件的按钮显示成中文