procedure TFrmHJGLEdit.FormKeyPress(Sender: TObject; var Key: Char);
//需要用回车键代替TAB键下移一个控件时,把KeyPress设为True
Begin
if (Key=#13) and (not (ActiveControl is TDbgrid)) then
Begin
Key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;
???????/ keypress 在哪设为真
//需要用回车键代替TAB键下移一个控件时,把KeyPress设为True
Begin
if (Key=#13) and (not (ActiveControl is TDbgrid)) then
Begin
Key:=#0;
perform(WM_NEXTDLGCTL,0,0);
end;
end;
???????/ keypress 在哪设为真
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货