H hnxx2003 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #2 edit1.keydown<br>begin<br>if key=13 the<br>//if key=vk_return then<br> begin<br><br><br> end;<br><br>end;<br><br><br><br>{------}<br>edit1.keypress<br>begin<br>if key=#13 then<br>begin<br><br>end;<br>end;
edit1.keydown<br>begin<br>if key=13 the<br>//if key=vk_return then<br> begin<br><br><br> end;<br><br>end;<br><br><br><br>{------}<br>edit1.keypress<br>begin<br>if key=#13 then<br>begin<br><br>end;<br>end;
H hq_ice Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #3 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br>if key=13 then<br> showmessage('响应了回车事件');<br>end;
procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;<br> Shift: TShiftState);<br>begin<br>if key=13 then<br> showmessage('响应了回车事件');<br>end;
风 风易 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #4 PostMessage(address_handle, WM_KEYDOWN, word(ord(13)), 1);<br> PostMessage(address_handle, WM_KEYUP, word(ord(13)), 1);
PostMessage(address_handle, WM_KEYDOWN, word(ord(13)), 1);<br> PostMessage(address_handle, WM_KEYUP, word(ord(13)), 1);
N nc2t Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #5 不管什么控件要是有onkeypress的事件<br>在该事件中写<br>if key=#13 then<br>begin<br> .....<br>end;
Y yf168 Unregistered / Unconfirmed GUEST, unregistred user! 2004-03-01 #6 上面的都能实现<br> 再学一招：<br> 如果 form1.keypreview=true ，则所有的按健 都先经过 form1.onkeydown过程下面的<br>语句，然后再转到相应的控件，处理，<br> 优点是可以：处理一些统一的问题（如，在form里面 用 enter实现tab的功能等等）
上面的都能实现<br> 再学一招：<br> 如果 form1.keypreview=true ，则所有的按健 都先经过 form1.onkeydown过程下面的<br>语句，然后再转到相应的控件，处理，<br> 优点是可以：处理一些统一的问题（如，在form里面 用 enter实现tab的功能等等）
