Delphi之三十六计之输入处理篇_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi之三十六计之输入处理篇

作者：闵涛文章来源：闵涛的学习笔记点击数：739 更新时间：2009/4/23 18:24:39

Delphi之三十六计之输入处理篇

Delphi是Borland公司开发的可视化开发系统，它基于Windows 95/98/NT,采用高度结构化的Object Pascal语言，具有结构清晰、高效优化的特点。尤其，最新版Delphi5.0更以其良好的可视化应用程序开发环境以及其强大的可扩展数据库功能而倍受广大编程爱好者和专业程序员青睐。在编程界流行的“真正的程序员用VC, 聪明的程序员用Delphi”之说，足见其为大家认可的程度。

现将收集的Delphi常用技巧收录如下，以享广大Delphi爱好者：

输入处理篇

1．获取键盘滚动锁, 插入态, 大写锁, 数字锁的开关状态

//Virtual =Vk_Scroll或Vk_capital或Vk_NumLock或Vk_Insert

function FuncKeyOn(VirtualKey: Word): Boolean;

begin

　　Result := Bool(GetKeyState(VirtualKey) and 1);

end;

2．当用户按下Enter/Up/Down键时使焦点切换到下一个聚焦对象

//设置窗体的KeyPriview属性为True, 并写入如下代码：

procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char);

begin

　if Key = #13 then

　begin

　　SendMessage(Handle, WM_NEXTDLGCTL, 0, 0);

　　Key := #0;

　end;

end;

procedure

TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);

Begin

　　If Key=Vk_Up then SendMessage(Handle, Wm_NextDlgCtl, 1, 0);

　　If Key=Vk_Down then SendMessage(Handle, Wm_NextDlgCtl, 0, 0);

end;

3．取得鼠标的绝对位置和设置鼠标的绝对位置

function GetMousePos: Tpoint;

Begin

　GetCursorPos(ThePoint);

End;

Procedure SetMousePos(X, Y: Word);;

　var

　　Tp: Tpoint;

begin

　　Tp := ClientToScreen(Point(x, y));

　　SetCursorPos(tp.x, tp.y);

没有相关教程

教程录入：mintao 责任编辑：mintao

上一篇教程： delphi三十六之加密篇

下一篇教程： delphi三十六之编辑篇

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……