| Blog信息 |
|
blog名称:注册会计师（注会）练习软件
日志总数:398
评论数量:116
留言数量:27
访问次数:3273375
建立时间:2005年6月6日 |
| |
|
 [borland eco 技术]delphi.net中关于datagrid网格的回车键跳到下一列处理
软件技术
吕向阳 发表于 2008/1/15 12:38:58 |
|
网上全是C#资料,转到DELPHI中也大费周章,还好,反复测试还是做出来了.
选给当前表定重载覆盖原有的ProcessCmdKey方法,并且要比原方法的公开方式要高,用PUBLIC,
public function ProcessCmdKey(var msg:Message ;keyData:Keys ):boolean;override;
在这里从C#转换到这里时,VAR这个查了很多相关资料才得来
函数过程如下
function formsale.Pr
ocessCmdKey(var msg: Message; keyData: Keys): boolean;begin
if ( (not (ActiveControl is Button)) and ((keyData=Keys.Up) or (keyData=Keys.Down) or (keyData=Keys.Enter))) then begin if(keyData = Keys.Enter) then begin System.Windows.Forms.SendKeys.Send('{TAB}'); result:=true; end else if(keyData=Keys.Down ) then System.Windows.Forms.SendKeys.Send('{TAB}') else begin SendKeys.Send('+{Tab}'); result:=true; end end else result:=inherited ProcessCmdKey(msg,keyData);end;
＝＝＝＝＝＝＝＝＝＝＝＝＝
备忘：KeyEventArgs.SuppressKeyPress = true |
|
|