如何按退出按钮，而不激活EDIT的ONEXIT事件？(100分)

L

lufang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #1

我在一下TEDIT的ONEXIT事件中进行输入检测，
一个退出按钮用于退出本窗口。
但我按退出按钮时，先执行了输入检测的代码，
非常讨厌，如何按退出按钮，而不激活EDIT的ONEXIT事件？

 

L

luyear

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #2

这个问题我也经常遇到，不要“退出”按钮，直接用windows的窗口关闭按钮就可以了
这样就不会触发edit的OnExit事件了

 

Y

YNTW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #3

TO luyear：
呵呵，如果窗口没有关闭按钮呢？：）

 

硬

硬木花椒

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #4

发消息
postmessage();
wm_close 正常退出
wm_quit 强制退出

 

A

askyer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-07

• #5

增加一全局Boolean（Form1变量）bExcute=True
在edit的onExit中判断
if bExcute then
begin
........
end;
退出按钮:
bExcute:=False;
close;
或 SendMessage(Handle,WM_Close,0,0);（不知你是否在edit获得焦点）

 

S

stjsq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #6

to askyer:
这样也是不行的，因为当焦点一离开Edit，onExit事件马上触发，根本
来不及运行退出按钮onclick中的事件，所以还是无效的。

 

X

xianghb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #7

哈，
rookie_ron is right

 

R

rookie_ron

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #8

在你的OnExit事件中加入:
if btnClose.Focused then
Exit;

 

杜

杜宝

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #9

不用这么麻烦吧?
TButton不行,换个没有焦点的Button来作退出按钮不就是了?
比如:换成TSpeedButton嘛!还好看!

 

Y

YNTW

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-22

• #10

嘿嘿，杜老大好取巧呀[]

 

L

lufang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-26

• #11

我的问题已解决了。

 

L

ljsh2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #12

怎么解决的?

 

H

hamsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-15

• #13

我来迟了！！！！

 

L

lufang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-17

• #14

在onexit事件里的第一行写上
if button1.Focused then
exit;
即可。