我迷糊了，幫幫忙。

Question

在窗體，form1中，有控件edit1:Tedit和Button1:TButton 。
光標在edit1上，設edit1的onexit事件 中有一些特殊代碼............
Button1的Button1Click事件edit1.Enabled:=false;
當程序運行，我點Button1時，我要想程序不執行edit1的onexit事件 。
請問有什麼方法？

Answer 1

form1中,有一个activecontrol的属性,设置成button1

Answer 2

to:dinyy 
    我同時要執行edit1.Enabled:=false啊。

Answer 3

一楼说的就可以啊
你执行了它的onExit事件,是因为你有焦点
如果你把from1的activecontrol和button1关联就不会了

Answer 4

就是要求我點button1的時候焦點從edit1跳出，但不執行的onExit事件。但點其他控件又要執行edit1的onExit事件。

Answer 5

在edit1.onexit里的代码，改成给一个标志赋值，如 edit1_exit:=true;
把原来你的特殊代码写成一个过程： procedure1;
在除button1.click事件外的代码里判断edit1_exit的值是否为true，是则调用procedure1。
有点罗嗦了点，不过行的通。

Answer 6

procedure TForm1.Edit1Exit(Sender: TObject);
begin
    if form1.ActiveControl <> button1 then
    begin
        .........
    end;
end;

Answer 7

to戏子 
这样可能不行吧，好象是edit先失去焦点，然后引发onexit，然后button获得焦点。

Answer 8

to: cnhgj(戏子)
    你說你可是可以，但如是給button1設個快捷鍵，使快捷鍵的時候edit1還是

Answer 9

onexit := nil;
给点分吧，我分长的好慢呀。

Answer 10

最简单的办法,设个全局变量b,初始为FALSE ,在button1中设为TURE,
在edit1中的onexit中这样写
   if b=true
       exit;
   else
   begin
     b:=fasle;
     .
     ......你的代码...
   end;

Answer 11

同意 cnhgj(戏子) (一个人睡)