P pchddcat Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #1 就是不需要按旁边的查询按纽,直接在edit控件上按回车达到查询功能 这样的效果怎样达到,需要使用什么事件和方法
L lwluser Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #2 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=13 then btnQuery.Click; end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=13 then btnQuery.Click; end;
四 四库全书 Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #3 一般在keyPress事件里处理: if Key=#13 then btnQuery.Click;
V vine Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #4 同 四库全书 if Key=#13 then begin btnQuery.Click; Key=#0; end;
M MikeZ Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #5 吧查询过程写成一个单独的procedure 在edit.onkeypress中 if key = #13 then queryproc btnQuery.onclick 中 queryproc 行了吗？
吧查询过程写成一个单独的procedure 在edit.onkeypress中 if key = #13 then queryproc btnQuery.onclick 中 queryproc 行了吗？
D Dark Angel Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #6 在编辑框的onEnter事件里把旁边按钮的Default属性设为真就OK了。 在OnExit事件里再把原先设为default属性的按钮设回去，就这么简单。
X x_coffee Unregistered / Unconfirmed GUEST, unregistred user! 2002-08-29 #10 procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=13 then btnQueryClick(sender); end;
procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if Key=13 then btnQueryClick(sender); end;
