Question

delphi中打开一个窗口后，在这个窗口中edit输入字，然后关闭窗口，下次再打开时，edit上的字还在！！

如题：delphi中打开一个窗口后，在这个窗口中edit输入字，然后关闭窗口，下次再打开时，edit上的字还在！！
我就是想让上面的字消失，例如我那个edit是修改密码的，可是再次打开时上面的密码还在！！
难道一定得用代码，edit。text=''完成吗？如果我的窗口有很多edit，不是很麻烦！？？

Answer 1

窗体销毁时里面EDIT密码之类的都是没了，如果你再次打开还有，说明这个窗体只是隐藏首颤而培袜不是销毁，你以后在事件中处理一下把它销毁配芹激就没这个问题了。

追问

能讲具体点吗？点窗口上的x关闭窗口，不是销毁是吧？那怎样才能销毁呢？？

追答

Delphi中MDI子窗口的关闭方式默认为缩小而不是关闭，所以当你单击子窗口右上角的关闭按钮时会发觉该子窗口只是最小化，而不是你预期的那样被关闭。解决办法是在子窗口的OnClose事件处理过程中加入如下代码，示例：

procedure ChildForm.OnClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;

　　Delphi为一个Form的关闭行为指定了四种方式，分别是：

caNone 禁止Form被关闭
caHide Form不被关闭，但是被隐藏。被隐藏的Form仍然可以被程序访问。
caFree Form被关闭，并且释放其占用的资源。
caMinimize Form被最小化而不是被关闭，这是MDI子窗口的默认关闭行为。

Answer 2

在窗体的 OnClose 事搭慎件里面加入代码，来保存 edit 中的字符斗伏到文本文件

在窗体的 OnShow 事件里面加入代空枝携码，从文本文件读取字到edit。

Answer 3

同野正意 yanwuhen51的轮铅答案, 补充一点..
可以在 Form的 onShow事件中初始化控件, 比如清空内容, 赋值等等..

procedure TForm1.FormShow(Sender: TObject);
begin
Edit1.Text:= '请输入用户颂桐悔帐号..';
Edit2.Text:= ''
end;

Answer 4

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:= cafree;
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
Form_setup:=nil;
end;

追问

不行的，还有你那个form_setup是什么？
跳出错误：access violation at address 0044F20B in modual.......read of address 000000000...process stop......

追答

Form_setup就是form1忘了改了
在窗口调用前写
if form1=nil then
form1:=Tform1.Create(self);
form1.ShowModal;