在表单的create事件写这段代码
var
i:integer;
begin
for I := 0 to DBNavigator1.ComponentCount - 1 do
if DBNavigator1.Components[I] is TNavButton then begin
case TNavButton(DBNavigator1.Components[I]).Index of
nbFirst: TNavButton(DBNavigator1.Components[I]).Caption := '首页';
nbPrior: TNavButton(DBNavigator1.Components[I]).Caption := '上页';
nbNext: TNavButton(DBNavigator1.Components[I]).Caption := '下页';
nbLast: TNavButton(DBNavigator1.Components[I]).Caption := '末页';
nbInsert: TNavButton(DBNavigator1.Components[I]).Caption := '新增';
nbDelete: TNavButton(DBNavigator1.Components[I]).Caption := '删除';
nbEdit: TNavButton(DBNavigator1.Components[I]).Caption := '修改';
nbPost: TNavButton(DBNavigator1.Components[I]).Caption := '存档';
nbCancel: TNavButton(DBNavigator1.Components[I]).Caption := '取消';
nbRefresh: TNavButton(DBNavigator1.Components[I]).Caption := '刷新';
end;
end;
end;
汉化数据导航条
最新推荐文章于 2020-04-14 12:24:15 发布