帮助(100分)

在implementation之前定义了
var
addform :string;

mainfrm :中有三个button: (btnadd. btnedit .btndel)
我用对addform的值来区分addfrm 的 caption. 和 某个button 的Enabled .
下面是button 的 click 事件:
p/s: mainfrm 已经 uses addfrm.
addfrm 已经 uses mainfrm .

mainfrm.btnaddclick ()
.addform:='insert' ;
.dbnav.btclick(nbinsert) ;
.showaddfrm ;

mainfrm.btneditclick()
.addfrm:='edit';
.dbnav.btnclick(nbedit);
.showaddfrm ;

我在 addfrm 的 onshow 中写入:
.if (addform='edit') then
..addfrm.caption :='编辑旧记录' ;
..btncancel.enabled :=false ;
..showmessage(addform) ;// 我用来测试用,一切正常
.....但 addfrm.caption 还是
.....以前(设计时)设定的.
Why?

我刚才写了一个，看不出毛病所在。

.showaddfrm ;
这一句怎么解？
为什么不是addfrm.show呢？

是我在 addfrm 写的一个过程。
var
frm:tform2 ;
procedure showaddfrm ;
frm:tform.create(application) ;
frm.showmodal ;
frm.free ;

一切都可以运行，但无法更改 addfrm.caption .
到底何解？

呵呵，你的程序风格...
还不如我帮你写一个！

我在 addfrm 的 onshow 中写入:
if (addform='edit') then
begin////////////////////////
Self.caption :='编辑旧记录' ; ////////////////
btncancel.enabled :=false ;
showmessage(addform) ;// 我用来测试用,一切正常
end///////////////////////////
else/////////////////////////
...........

接受答案了.