DBNavigate控件加Caption

procedure TForm1.FormCreate(Sender: TObject);

var

I: Integer;

begin

TNavButton(Components[I]).Layout :=blGlyphTop;

with DBNavigator1 do for I := 0 to ComponentCount - 1 do

if Components[I] is TNavButton then begin

case TNavButton(Components[I]).Index of

nbFirst: TNavButton(Components[I]).Caption := '首笔';

nbPrior: TNavButton(Components[I]).Caption := '上笔';

nbNext: TNavButton(Components[I]).Caption := '下笔';

nbLast: TNavButton(Components[I]).Caption := '末笔';

nbInsert: TNavButton(Components[I]).Caption := '新增';

nbDelete: TNavButton(Components[I]).Caption := '删除';

nbEdit: TNavButton(Components[I]).Caption := '修改';

nbPost: TNavButton(Components[I]).Caption := '存档';

nbCancel: TNavButton(Components[I]).Caption := '取消';

nbRefresh: TNavButton(Components[I]).Caption := '刷新';

end;

end;

end;