关于定义回车键的问题

guilintop 2003-08-30 05:45:48
我在使用了第三方控件开发程序的过程中,遇到了一个问题:在网格中只能通过TAB键移动光标,而不能使用ENTER键移动,请问我应该怎样做?请大家帮忙,谢谢了.
...全文
22 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
ychuiming 2003-08-30
  • 打赏
  • 举报
回复
把回车转换为tab
ychuiming 2003-08-30
  • 打赏
  • 举报
回复
class procedure Tpubfun.EntertoTab(Sender:Tobject;var key: char;vKey:char=#13);
begin
if key=vKey then
begin
key:=#0;
(sender as TWinControl).Perform(CM_DialogKey,VK_TAB,0);
end;
end;
hnhb 2003-08-30
  • 打赏
  • 举报
回复
不知道你用的什么第三方控件,下面是我在DBGrid中用Enter键控制光标移动的代码,希望对你有启发

在DBGrid的OnKeyPress事件中

begin
if key=#13 then
if DBGrid1.SelectedIndex < 5 Then //DBGrid显示了6列回车右移后到了最后一列时,光标移到下一条记录的第1列

DBGrid1.SelectedIndex := DBGrid1.SelectedIndex + 1
else
begin
DBGrid1.SelectedIndex := 0; // 光标到下一条记录第1列位置//
with AdoQuery1 do
begin
Next;
if EOF then Last;
end;
end;

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧