在dbgrid中如何实现象word中表格的移动??就是可以用方向键在一个小格子里面输完一项内容,再用方向键移动到下一个格子里面再输入呢?
解决方案 »
- delphi error creating form:未指定错误
- 请问TIDFTP控件有时候死程序怎么办?
- 请大师们再帮我看个程序(增加操作),指点指点我,先谢谢各位!!!
- 关于ZIPTV,我是用他解压缩RAR,在本机运行很正常,到其他机器就不能解压,并捕捉不到异常.
- 求调C++ api方法
- 高分求救明明已经引用了单元文件,为什么编译时总是出现:File not found:'xxx_TLB.dcu'
- 如何将音频或视频文件读入LISTBOX中逐个按顺序自动播放
- 当程序读数据库时,怎么使光标变成漏斗状?
- ★★★一个简单问题(关于窗体事件继承的问题),100分!!!★★★
- 你们相信吗???????
- 如何将EDIT1的text的值赋给一个数据库的MONEY型的数据?在线等待!急!
- 增加中文预览窗口后出现的问题
if key=#39 then
if DBGrid1.SelectedIndex < 5 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1
else
begin
DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置//
with AdoQuery1 do
begin
Next;
if EOF then Last;
end;
end;
if key=#37 then
if DBGrid1.SelectedIndex >0 Then //DBGrid显示了6列
DBGrid1.SelectedIndex := DBGrid1.SelectedIndex - 1
else
begin
DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置//
with AdoQuery1 do
begin
Next;
if BOF then First;
end;
end;