动态修改DBGRID的标题 ( 积分: 100 )

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-19

• #1

在FROM1中有一个DBGRID,里面有3个字段A,B,C
在FORM2中有一个DBGRID,里面有3个字段A,B,C
如此这般一共19个FORM
我想用一个函数,用"FORMNAME.DBGRIDNAME"做参数,在每一个FORM.SHOW事件中
实现修改DBGRID的TITLE.CAPTION的值.

 

T

terry_zhou82

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-22

• #2

你可以写一个过程，试试这个呢？
Procedure ChangeText;
begin
if (sender is TDbgrid) then
.......

 

B

bsense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-23

• #3

我做过,呵呵,可行,你给一个过程 和通用编辑界面,设置保存某grid,存ini里,
oncreate form 时load就行乐

 

C

chengjie

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-23

• #4

function IsRefresh(DBGridEh1: TDBGridEh): Boolean;
var i:Integer;
begin
for i := 0 to DBGridEh1.Columns.Count - 1 do
begin
dbgrideh1.Columns.title.caption:='你要东西'；
end;
end;
----------------------
不要忘了给分啊！

 

W

wqhatnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-12-23

• #5

多人接受答案了。