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. 
 
 

相关阅读 >>

delph控制台(console)程序添加图标和版权信息

Delphi 清除字符串两边空格或指定字符

Delphi截取字符串 防止中文截断

如何判断硬盘是fat32还是ntfs

Delphi 让程序主窗口不响应“显示桌面”

Delphi 新版 thttpclient组件同步下载文件方法

Delphi 让程序自己更新本程序

Delphi tstringlist 排序 customsort

Delphi xe 版本 示例原码下载

Delphi tlistview按指定列排序

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...