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 调用批处理

Delphi 查找目录下文件（多文件查找）

Delphi 关闭rtti反射机制减少exe文件尺寸

Delphi unigui中cookies使用中文汉字的方法

Delphi 最精简的小写金额转大写的函数

Delphi xe6 grid试用结果

最简单的Delphi驱动结束进程

Delphi xe android-uri-管理联系人uri

Delphi 图像文件加载到剪切板，再从剪切板绘制图像

Delphi 调用api打开文件 使用系统默认打开方式进行打开

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

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