相信不是难题(6分)

X

xxxfff_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #1

procedure TForm3.Edit2Exit(Sender: TObject);
begin
if edit2.text='' then begin
showmessage(msg1);
edit2.SetFocus;
end;
end;
我写了上面的语句后发现点击退出按钮不能退出了。该怎么解决？？

 

H

hnxx2003

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #2

procedure TForm3.Edit2Exit(Sender: TObject);
begin
if edit2.text='' then begin
showmessage(msg1);
edit2.SetFocus;//你在这时把焦点又设置在EDIT2中当然无法执行其他操作了。
end;
end;
建议你在其他的事件中处理使EDIT2.TEXT不为空的事件;
如界面上的"确定"中加入
if edit2.text='' then begin
showmessage(msg1);
edit2.SetFocus
end;

 

S

sid033

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #3

你将edit2.setfocus 改为
if not 退出按钮.focused then edit2.setfocus就可以了

 

D

dx2527

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #4

當然不能退出了,只要edit2中無內容,焦點就不能離開,點擊退出按鈕時需將焦點轉到按鈕上,就先觸發了edit2.onexit事件,焦點又回到edit2上,使按鈕的事件沒有執行

 

X

xxxfff_cn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-22

• #5

多人接受答案了。