/*Delphi中数据库控件DBNavigator使用起来不错,但是按钮上“+”、“-”等含义对于中国的用户不习惯,甚至不知道是什么含义。改成相应含义的汉字表示出来 */
type
TMyNavgator = class(TDBNavigator);
////
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.
正文完