请高手帮忙

Question

procedure show_vendordef(operate:toperate);
begin
 with tfrmvendordef.Create(application) do
    begin
      case operate of
        radd:
          begin
            caption:=frmvendordef.Caption+'增加';
            .....(省略)
          end;
        rmodify:
            begin
            caption:=frmvendordef.Caption+'修改; 
            end;
我写了一个过程，通过该过程调用窗体，然后进行增加或修改，我进行判断是增加或是修改是通过caption的值，但是我运行是出现如下情况：第一次caption正常，但是以后caption的值不正确，值为增加或修改，但是我把它改成caption:=Caption+'修改;或caption:=Caption+'增加';正常，请问高手这是怎么回事，在线等待，小弟在这先谢谢了。

Answer 1

试试改为with frmvendordef.Create(application) do，直接用类的对象调用函数

Answer 2

如果你用的是MDI方式，
procedure TFormX.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  Action := caFree;
end;