当触发一个事件会令另外一个事件触发，如何禁止触发这个事件

Question

当触发一个事件会令另外一个事件触发，如何禁止触发这个事件

Answer 1

将事件设置为NIL; 举例procedure TForm1.Button1Click(Sender: TObject);
begin
  Button2.OnClick := nil;
  {开始处理你的事务}
   .......  {结束处理你的事务}
  Button2.OnClick := Button2Click
end;

Answer 2

但另一个事件上EditChanged事件，不是Button2.onclick事件

Answer 3

总之就是把你不想出发的事件句柄赋值为nil,则它就不会触发了  比如: OnEditChanged := nil;

Answer 4

最简单的办法就是在第一个事件结束的时候加一句abort，就OK了，呵呵

Answer 5

OnEditChanged := nil不能实现

Answer 6

OnEditChanged := nil不能实现-------------------------哪里来的这种事件?? 是这个吧procedure TFormDemo.ButtonClick(Sender: TObject);
begin
  Edit.OnChange := nil;
end;procedure TFormDemo.EditChange(Sender: TObject);
begin
  Caption := Edit.Text;
end;

Answer 7

Edit.OnChange := nil;
好象没有onchange这个属性

Answer 8

我说的OnEditChanged只是举个例子, 你自己需要屏蔽什么事件我并不知道