走过路过不要错过,进来看看
Posted on 八月 16rd, 2007 由 admin
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 在哪设为真
推荐阅读


讨论区