【结帖】这个要怎么弄？**

zql

同一业务功能下的两个窗体，在主窗体（A）中点击一个按钮弹出另一个窗体（B），因为弹出窗体时都需 重新创建，使上次在B中输入的信息丢失，怎么样实现上次在B中输入的信息仍存在。。。。

lixy

把b窗体数据存入数据库，或者存入a窗体的变量里面。再次显示时，再赋值回去。

zql

用到是能用，就是太麻烦了点
因为要用到很多变量。。。。还有更方便的吗？

zfang

那你可以这样，A窗体中 定义一个变量为lFrm : B窗体类型的，而对于B窗体关闭的时候就不要用Close了，用Hide；这样再打开B的时候界面上的数据就不会丢失了。

A窗体代码
unit MAINFORM;

interface

uses
  Business.System, Business.Forms;

type
  TMAINFORM = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
    lFrm : TCT1;
  public
    {public declarations}
  end;

implementation


procedure TMAINFORM.Button1Click(Sender: TObject);
begin
  if lFrm = nil then
    lFrm := TCt1.Create(Context);
  lFrm.Show;
end;

B窗体代码
unit CT1;

interface

uses
  Business.System, Business.Forms;

type
  TCT1 = class(TForm)
    Edit1: TEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    {private declarations}
  public
    {public declarations}
  end;

implementation


procedure TCT1.Button1Click(Sender: TObject);
begin
  hide;
end;

zql

非常感谢
结贴

zfang

客气，谢谢反馈！