我想让procedure TForm_batch.Edit_colorChange(Sender: TObject);这个change事件不被触发，该怎么弄啊

Question

我想让
procedure TForm_batch.Edit_colorChange(Sender: TObject);
begin
  //程序代码
  ...
end;
这个change事件不被触发，该怎么弄啊!

Answer 1

这个事件很难不让他触发 只要她获得焦点
如果你要实现什么功能建议你在change里用
if
else
具体在讨论

Answer 2

将这个事件赋为nil。procedure TForm1.ListBox1Click(Sender: TObject);
begin
  showmessage('');
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  listbox1.OnClick:=nil;
end;procedure TForm1.Button2Click(Sender: TObject);
begin
  listbox1.OnClick:=ListBox1Click;
end;这样就是可以指定事件是否有效。
----------------------------------------------
                   riff ur life