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 仿dbnavigator方式

Delphi 如何确定windows安装的语言

Delphi sqlite incomplete input 错误

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

Delphi 如何删除动态数组的指定元素

Delphi twebbrowser 响应回车键(ewb响应正常,无需额外代码)

Delphi 获取百度注册页面验证码图片的源代码

Delphi getprocessidentity 获取当前登录状态的管理员

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



打赏

取消

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

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

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

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

评论

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