怎样再执行clear方法时不响应onchange事件？

Question

我在一个EDIT设置了ONCHANG事件，用于显示DBGRID内容，当把DBGRID的值传给edit后，就使dbgrid的visible为false。然后我点击一个button要把edit得值赋给别的控件，每次执行完后需要清空edit的内容，使用edit1.clear。于是问题就来了，每次都触发onchange事件，显示出DBGRID，一闪一闪的，很烦人，有没有什么办法再执行clear的同时不相应onchange事件呢？

Answer 1

很简单呀，在清空之前先将事件指针拿掉。ChangeEvent := Edit1.OnChange;
Edit1.OnChange := Nil;
Edit1.Clear;
Edit1.OnChange := ChangeEvent;

Answer 2

procedure TForm1.Edit3Change(Sender: TObject);
begin
   if edit3.Text <>'' then
      Begin
          ***
      End  ;
end;