怎样初始化表单(Form)

Question

在表单的edit中填写数据后,必须全部退出后才能初始化到起初(设计时的状态),如果是主表单调用它,不退出主表单再调用时,edit中仍然显示上次填写的数据.

Answer 1

在form的onshow中初始化edit

Answer 2

如果每次都要用很多代码初始化的话,是不是太麻烦了.一个表单中有几十个edit和maskedit,memo等.请高手指点.

Answer 3

以下把Form上所的TEdit和TMemo的Text值清空
如果控件是放在panel上，把Self改为相应的Panel就可以了
var
  lp: integer;
begin
  for lp := 0 to self.ControlCount do 
  begin 
    if self.Controls[lp] is TCustomEdit then
      TCustomEdit(self.Controls[lp]).text := '';
  end;
end;