| 技术论坛 |
|
|
| ≡技术区≡ ① |
| DELPHI技术 |
| lazarus/fpc/Free Pascal |
| 移动应用开发 |
| Web应用开发 |
| 数据库专区 |
| 报表专区 |
| 网络通讯 |
| 开源项目 |
| 论坛精华贴 |
| ≡发布区≡ ② |
| 发布代码 |
| 发布控件 |
| 文档资料 |
| 经典工具 |
| ≡事务区≡ ③ |
| 网站意见 |
| 盒子之家 |
| 招聘应聘 |
| 信息交换 |
| 论坛信息 |
|||
|
| 导航： | 论坛 -> DELPHI技术 斑竹:liumazi,sephil | |||||
| 作者： |
|
2004/2/24 18:20:14 | ||||
| 标题： |
|
加入我的收藏 | ||||
| 楼主： | 请教各位高手：DELPHI中除了SetFocus设置焦点外，还有哪些其它办法？（如表单中加入三个编辑框，EDIT1、EDIT2、EDIT3，当前焦点为EDIT1,当敲入回车键后，EDIT2获得焦点，除了SetFocus外还有什么办法实现？）感激！感激！ ---------------------------------------------- 从零开始学Delphi |
|||||
| 作者： |
|
2004/2/24 19:45:45 | ||||
| 1楼： | Edit2.Perform(WM_SETFOCUS, 0, 0); SendMessage(Edit2.Handle, WM_SETFOCUS, 0, 0); 都可以阿 你是想让回车键实现Tab键的功能吧 下面的代码让程序在按下回车键，并且当前获得焦点的控件是TEdit的时候 实现按Tab键的效果 //先放一个TApplicationEvent procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean); var S: array[0..63] of Char; begin if (Msg.message = WM_CHAR) and (Msg.wParam = VK_RETURN) then begin if GetClassName(Msg.hwnd, S, 64) = 0 then Exit; if S = 'TEdit' then SendMessage(Handle, WM_NEXTDLGCTL, 0, 0); end; end; ---------------------------------------------- Click here to redirect to my home Click here to redirect to my blog |
|||||
| 作者： |
|
2004/2/24 20:56:12 | ||||
| 2楼： | 向SEPHIL老大学习：） ----------------------------------------------  
|
|||||
| 作者： |
|
2004/2/24 21:50:58 | ||||
| 3楼： | 用tedit的onkeydown事件，代码如下： procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin if KEY = vk_return then begin edit2.setfocus; ..... end; end; ---------------------------------------------- - |
|||||
| 作者： |
|
2004/2/24 21:52:16 | ||||
| 4楼： | 小文 老大 你看清楚 人家问什么：“DELPHI中除了SetFocus设置焦点外，还有哪些其它办法？” ----------------------------------------------
|
|||||
| 信息 |
| 登陆以后才能回复 |
