DBNavigator1 按钮标题中文 提示中文

http://bbs.2ccc.com/topic.asp?topicid=74320

 

怎么将DBNavigator显示时是中文标题

来源:本网整理   如何将DBNavigator显示时是中文标题?
如题: 


就是现在想实现在DBNavigator上显示的是中文文字,而不是原来默认的图标?

------解决方案--------------------
关注 
------解决方案--------------------
uses 
buttons 


TSpeedButton(DBNavigator1.Controls[0]).Caption := '第一条 '; 
TSpeedButton(DBNavigator1.Controls[0]).Glyph := nil; //去掉图标

 

 

class helper for

https://www.cnblogs.com/GarfieldTom/archive/2010/01/18/1650311.html

 

 

 

为DBNavigator的按钮加中文

 

转自:http://hi.baidu.com/debiansir/item/0699f5b6bb4d99f063388e71

/*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.
上一篇:机器学习算法二——Adaboost分类算法


下一篇:原生js简单轮播图 代码