delphi StringGrid中回车换行

本文整理自网络，侵删。

 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; 

相关阅读 >>

pos、ansipos、fillchar在Delphi2010中unicode的问题

Delphi根据字符分割字串成数组

Delphi webbrowser全选\复制\粘贴

Delphi 使用google translate实现tts

Delphi sql语句查询最新的各个台位的最后一个检测值

Delphi 清空文件夹

Delphi:out参数和var参数的区别

如何在Delphi中禁用关于“返回值...可能未定义”的警告？

Delphi 合并文本行的函数

Delphi xe中使用tchart绘制平滑曲线

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi StringGrid中回车换行