利用Tab可以切换焦点,如果改为Enter怎么实现?
解决方案 »
- [讨论]我们自己开发一个DBX的SYBASE驱动
- 怎么操作才能让&显示出来~~
- 很爽的打印dbgrid,stringgrid,datasource.的控件。欢迎下载
- ODBC连接foxpro表在xp下出错,说找不到驱动,谁知道啊?急
- 如何出发TComboBox对象的鼠标移动事件!
- DELPHI 里有什么控件在背景上可以显示文本,我用的是image做的背景!
- 请问将现有exe程序修改为dll扩展名后,在delphi中通过什么代码让期执行?
- 请教一个类似执行的原子性的问题。
- 如何合并Excel单元格(急)
- 谁有proxies.pas文件??我急用!!谢谢!
- 机器上未装Sybase,怎样只安装sybase的ole db驱动
- 请高手帮忙!
SendMessage(Handle,WM_KeyDown,VK_TAB,0) ;
if not(AForm.ActiveControl is TDbGrid) then
begin //不是在TDbgrid控件内
//key := #0;
AForm.PerForm(WM_NEXTDLGCTL,0,0); //移到下一个控件
end
else if (AForm.ActiveControl is TDBGrid) then
begin //是在TDbgrid控件内
with TDbgrid(AForm.ActiveControl) do
if Selectedindex<(Fieldcount-1) then
Selectedindex := Selectedindex+1
else
Selectedindex := 0;
end;
Edit.SetFocus;