Question

delphi 关闭窗体怎样把窗体里面的内容都清空

本人刚学delphi 哈，请各位大虾指点一下，怎么样关闭一个窗口后，把里面所有的EDIT，memo写的什么东西都清掉，下次打开又是新的一样？谢谢大家呀！

Answer 1

两种方法:

1.在OnClose事件中一个一个清除
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Edit1.Text := '';
Edit2.Text := '';
Memo1.Lines.Clear;
end;

2.每次显示窗口前,都新建一个窗口类,关闭时把它Free掉

procedure TForm1.Button1Click(Sender:TObject);
var
f2:TForm2;
begin
f2:=TForm2.Create(Self);
f2.ShowModal;
f2.Free;
end;

Answer 2

一楼正确！

Answer 3

这样的代码也好意思拿出来教人啊？
那要是几百个edit该怎么办啊？