怎样把DBNavigator1放到一个共用文件中?(100分)

M

malaya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #1

现在有一个问题:有若干个FORM,其中都用到 DBNavigator1,而且每一个DBNavigator1都有如下赋值语句,我不想每一个FORM都写这么多语句,能不能把它们放到一个公用文件中,先谢谢各位DX了.
赋值语句:
dbnavigator1.VisibleButtons:=[nbFirst,nbPrior,nbNext,nbLast,nbInsert,nbEdit,nbPost,nbCancel,nbRefresh];
for i := 0 to DBNavigator1.ControlCount-1 do
begin
TNavButton(DBNavigator1.Controls).Layout := blGlyphTop;
case TnavButton(DBNavigator1.Controls).Index of
nbFirst: TNavButton(DBNavigator1.Controls).Caption := '第一条';
nbPrior: TNavButton(DBNavigator1.Controls).Caption := '前一条';
nbNext: TNavButton(DBNavigator1.Controls).Caption := '下一条';
nbLast: TNavButton(DBNavigator1.Controls).Caption := '最后一条';
nbInsert: TNavButton(DBNavigator1.Controls).Caption := '增加';
nbDelete: TNavButton(DBNavigator1.Controls).Caption := '删除';
nbEdit: TNavButton(DBNavigator1.Controls).Caption := '编辑';
nbPost: TNavButton(DBNavigator1.Controls).Caption := '保存';
nbCancel: TNavButton(DBNavigator1.Controls).Caption := '取消';
nbRefresh: TNavButton(DBNavigator1.Controls).Caption := '刷新';
end;
end;

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #2

你做一个父类窗体继承下来就可以了

 

M

malaya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #3

不想继承,能用语句控制吗?
因为有时要改一些东西,或者还要加一些控制

 

S

slf0205

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #4

是不是可以放在数据模块中,

 

W

whatdelphi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #5

那样你可以写成函数，然后在需要的时候调用一下就行了
Procedure SetDBNavigator(DbNav:TDBNavigator);

 

M

malaya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #6

一语惊醒梦中人,谢谢whatdelphi,slf0205

 

M

malaya

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-11-22

• #7

多人接受答案了。