关于焦点的问题(30分)

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #1

delphi的问题：
假如form1上有Edit1和DBGrid1，运行时，如果用鼠标点edit1上，即光标在edit1上，那么如何判断光标在edit1上？如果光标在dbgrid1上，则又如何判断光标在dbgrid1上呢？

 

K

Kang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #2

If Edit1.Focused then 焦点在Edit1上
if Dbgrid1.Focused then 焦点在Dbgrid1上

 

J

jacer

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #3

我抗议！
Kang你太快了！

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #4

但问题是这样的，在form1里有edit1、dbgrid1和button1，当在button1里添加
代码：
if edit1.focused=true then
begin
messagedlg('焦点在edit1');
abort;
end;

if dbgrid1.focused=true then
begin
messagedlg('焦点在dbgrid1');
abort;
end;

运行时，假如焦点在edit1时，我知道一按button1，肯定不会出现'messagedlg
“焦点在edit1”'，因为一按button1，焦点已经在button1上了，怎么样处理？

 

S

skyrabbit

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #5

在edit1和dbgrid1两个控件的OnExit事件分别中给某个变量ss赋不同值如1,2等,
在Button1的Click事件中检查此变量,
if ss=1 then...
if ss=2 then...
在edit1的OnEnter事件中清此变量,如为0
在dbgrid1的OnEnter事件中清此变量,如为0

 

F

fstao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-05-31

• #6

多人接受答案了。