如何使系统接受enter事件!(50分)

  • 主题发起人 主题发起人 wangsangwu
  • 开始时间 开始时间
W

wangsangwu

Unregistered / Unconfirmed
GUEST, unregistred user!
本人现在编一个进入系统的界面 ,需要输入密码 ,现在要实现的功能是当我输入密码后回车时
如何使系统判断以便进入 下一步操作
 
编写OnKeyPress是事件。
if Key=#13 then
begin
//你想做的事
Key:=#0
end
 
procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key=#13 then
begin
//处理
Key:=#0
end;
end;
 
将Form 的KeyPreview设为True
将按钮的ModelResult设为mrOk
在按钮的OnClick事件中调用过程
 
将Form的KeyPreview属性设为True,

然后编写OnKeyPress事件。
if Key=#13 then
begin
//YourEvent
Key:=#0
end
 
我的界面有两个按钮,一个是确定 另一个是返回 (功能是隐藏Form),刚才按照各位的指教
我已经成功的实现啦功能,现在问题是当我按返回按钮后再次进入界面后,按回车健就会触发返
回健的OnClick事件,不知道是为什么??我现在想知道怎样使焦点始终集中在确定按钮上?
 
将确定按钮的Default属性设为True
或在Form的OnShow事件里写代码:
ActiveControl :=Btn_Ok;
 
同意楼上
 
接受答案了.
 
后退
顶部