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.