zoukankan      html  css  js  c++  java
  • 为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.
  • 相关阅读:
    2017-5-25 母版页
    2017-5-25 分页加条件查询合体
    2017-5-23 WebForm 中的分页功能和条件查询功能
    2017-5-17 WebForm 基础
    2017-5-14 心情
    2017-5-10 小型人员管理系统
    2017-5-9 打开唯一窗体的实例操作
    2017-5-8 TreeView 实现三级联动 (递归方法)
    2017-5-7 三级联动数据库 数据保存
    2017-5-7 三级联动
  • 原文地址:https://www.cnblogs.com/lmzjh/p/4263984.html
Copyright © 2011-2022 走看看