cxgrid 回车后就跳到下一个控件,想实现回车后移动到下一行记录,求助?
解决方案 »
- 高手进来帮帮忙 没多少分了送50吧
- 请教一个关有ADOQuery与sqlserver数据库的问题
- 如何为parados数据库加密码?谢谢,在线等待!
- 用delphi开发COM+遇到的问题!help me!
- 当serversocket1.Socket.Connections[]数组中一个连接断开时,这个数组会做何调整?
- 关于XP式的气泡提示,不规则窗口的形成,透明背景ICON图标的制作软件。谢谢。
- 在richedit中如何定位光标?跟者有分!
- 关于ComboBox下拉框收回的消息
- 谁有htmlreport的正式版控件?
- PageControl和TabSheet的问题
- Delphi调用VC动态库的Char指针返回问题
- delphi 2007 调试except 不报错了,怎么把他整出来?
代码如下:
if (key = VK_RETURN) then
begin
Key := 0; if rDgd_DTDBTv.GetColumnByFieldName('Locator').Focused then
begin
rDgd_DTDBTv.GetColumnByFieldName('ProductSeries').Focused := True;
rDgd_DTDBTv.GetColumnByFieldName('ProductSeries').Editing := True;
end
else if rDgd_DTDBTv.GetColumnByFieldName('ProductSeries').Focused then
begin
cds_DT.Next;
rDgd_DTDBTv.GetColumnByFieldName('Locator').Focused := True;
rDgd_DTDBTv.GetColumnByFieldName('Locator').Editing := True;
end;
end;
AItem: TcxCustomGridTableItem; AEdit: TcxCustomEdit; var Key: Word;
Shift: TShiftState);
begin
if key = vk_return then
if not cds.Eof then cds.Next;
end;