本文整理自网络,侵删。
if key = vk_return then//设置回车代替tab键
with a do
begin
if Col=(ColCount-FixedCols) then
begin
if Row<(RowCount-FixedRows) then
begin
Row := Row+1;
Col := 1;
end;
if Row=RowCount-FixedRows then
begin
RowCount:=RowCount+1;
Row := Row+1;
Col := 1;
end;
end
else
Col:=Col+1;
end; 相关阅读 >>
Delphi windows 编程[15] - 菜单消息: wm_command
Delphi通过adoquery控件实现sqlserver数据库多结果集的数据打印
Delphi monthoftheyear、weekoftheyear、weekofthemonth、dayoftheyear … 相对时间
更多相关阅读请进入《Delphi》频道 >>