zoukankan      html  css  js  c++  java
  • Delphi中 为DBNavigator的按钮加中文

    Delphi中 为DBNavigator的按钮加中文

    /*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.

  • 相关阅读:
    不可或缺 Windows Native (15)
    不可或缺 Windows Native (14)
    不可或缺 Windows Native (13)
    不可或缺 Windows Native (12)
    不可或缺 Windows Native (11)
    不可或缺 Windows Native (10)
    不可或缺 Windows Native (9)
    不可或缺 Windows Native (8)
    不可或缺 Windows Native (7)
    不可或缺 Windows Native (6)
  • 原文地址:https://www.cnblogs.com/wxb-km/p/3477771.html
Copyright © 2011-2022 走看看