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; 

相关阅读 >>

Delphi stringgrid 加载excel表格文件内容自动宽度

Delphi savelog 日志

Delphi中几种注释方法

Delphi 字母大小写转换

Delphi xe2 硬盘序列号

Delphi webbrowser设置自己定义user-agent

Delphi 学习 sql 语句 - select(8): 分组条件

Delphi中模拟鼠标点击事件

Delphi tnethttpclient的用法

Delphi 实现给字加边界代码

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

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