在Panel或form里面按Tab使得光标一格一格的跳下去,不要跳乱。
这个函数如何写,
谢了
这个函数如何写,
谢了
解决方案 »
- TTS语音播放中文
- 关于RZPanel的
- 诚聘:接口开发工程师(Delphi)(北京)
- XML的几个问题
- 怎么样抓屏,把它保存成一文件!
- 注册了几天,今天家里的"死猫"总算让我注册成功了
- *****急!急!急!一个ADO的问题?回答正确另送500分(在线等待!!!),唉,兄弟们,只有你们能救我了!
- 一个非常简单的问题,回答对了就给100分。急,在线等。。。。。。
- 那里有installshield5.5 for delphi下栽
- delphi 用Tchart画的柱状图怎么导出到Excel? 不要保存为图片在复制到excel
- Kaersoft软件基地重新分类,大家看看好不好?都来UP - 九品御厨
- 为什么我的DELPHI里没有controbar控件
要不用如下代码:
设置窗体(form)的keypreview值为trueprocedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);
begin
if key=#13 then
selectnext(activecontrol,true,true);
end;
或者自已在ONKEYPRESS中加入你要跳到的CONTROL去..用SETFORCUCE
if Key=VK_Return then
postmessage(handle,VK_DOWN,VK_Tab,0);
就OK了!
procedure Tfrm_.FormKeyPress(Sender: TObject; var Key: Char);
begin
if Key = #13 then
begin
Key := #0;
Keybd_Event(Vk_Tab, 0, 0, 0);
end;
end;