说三道四技术文摘-感悟人生的经典句子
说三道四 > 文档快照

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

HTML文档下载 WORD文档下载 PDF文档下载
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);

开源产品系列:面向组件的Web框架tapestry 360指责百度窃取用户信息 公布美杜莎插件技术分析 苹果正式发布iOS 6.1 最快本周日即可越狱 苹果高管:运行iOS 6的设备达3亿 Chrome OS 黑客大赛总奖金为314.159万美元 微软雷德蒙研究院副总裁:从计算研究到惊人发明 还驾驭不了4核? 别人已模拟出百万核心上的并行 RIM将网络直播BlackBerry 10发布会 解读TDD的五大误区 Amazon 2012财年Q4财报:电子书业务增长70% 从暴风影音CTO到创业者:画中画相机话中话 为什么Android应用开发总要比iOS晚? 传奇VC马克.安德雷森:未来的企业什么样? 呼吁国会通过“创业签证”:奥巴马助力美国招揽海外人才 Surface Pro最低1019美元,价值究竟如何? 搜狗号码通产品经理谈微创新 数据和运营更关键 在线推荐系统是如何进行工作的? 欧朋浏览器上架App Store,iOS生态真要变天? 苹果iOS 6.1地图搜索API将替代谷歌Places Oracle向开发者承诺 称尽快修复Java安全问题 日本:开发者与投资人都不容忽视的移动市场 Unity 3D引擎:十大最火的插件推荐 重塑品牌 RIM更名黑莓 发布BlackBerry 10移动操作系统及新手机 NoSQL依赖的不只是大数据 还有应用程序架构的改变 新一代Apple TV增强内在组件 外观不变 加速Web开发的7款知名HTML5框架 Firefox OS开发者日来袭 5小时15款Web应用出炉! 微软发布Office 365家庭高级版 订阅费499元/年 鲍尔默对Office信心满满,十亿用户量触手可及 【多图】梦幻现实 IBM的未来超级计算机水世界 一名骨灰级工程师的OpenStack部署总结引发的讨论 请问这个问题该怎么处理!十万火急!谢谢! 急:一个.Net 写DLL及调DLL的问题,请大家帮忙!(在线等候......可以再加分msn:w.hua@ynmail.com,qq:25857100) 救命啊 查找某个目录下是否有某个文件 邮箱命名的问题??? 怎样在一个窗口控件中显示两条自由报表的记录? 紧急求助USB带宽 请问哪里能下到《inside the c++ object model》英文版啊,谢谢 新手提问,大侠莫抛弃我,谢谢,请往里看。 求教:我想拦截CreateProcess()的调用,并取出参数是否可行???? 这是什么病毒 如何指定发送端口 如何设置treeview的scrollbar? 请问各位,谁写过一个程序的整个文档,小弟很急,想参考一下。不知是否可以。谢谢了! 打算过年后跳槽,大家帮帮忙看看我这水平能拿多少?来者有分 天灾 +人祸100分求救 各位再请看看: ccur(922337203685477.30)=922337203685477.25 ??? 用JAVA做APPLET程序的朋友请进!!! 如何使应用程序(基于对话框)在状态栏里不可见 急,求救!在线等!请帮忙,谢谢 SQL Server 的客户端问题? 在线等; 好好的程序不能运行了 ,提示:不能创建宏 怎样打开一个数据库在单文档的视中显示数据??(我没有没结过的贴) 调用外部程序的问题 偶去吃饭了!大家去吗?我请客好了:) 大家能不能介绍一下四川的迈普 VB6到VB.NET升级问题?有的FORM可以升级,有的不行,错误如下:(急!!!搞定立即散分!在线等!) 男人的花样,女人的年华(淡月儿) 如何在VB中正确将调用的Excel进程关闭? 请问 void UpdateDialogControls()函数怎么用……(******) 求教:我想拦截CreateProcess()的调用,并取出参数是否可行???? 我想请问一下sql的认证问题 触发器:For ,Instead OF 和After有什么区别?? slq7.0是不是不支持Instead OF 和After 远程访问方案征求!!! 为什么在我的XP的文件夹里面有Thumbs.db???? 不难的问题,请帮忙!! 如何改变ASP.NET Web应用程序生成的项目的位置?? 如何在JBuilder7中连接远程MS SQL2k数据库? 为什么在x-win32的窗口中,不能使用KDevelop,创建QT工程?? 数据源的连接问题?急!急!急!急!急!急!急!急!在线等待! paradox7表有没有最大记录数或最大容量?! 请问safety-critical systems是什么系统? 为什么<textarea>会有字数限制,我写了超过330个字符就不能提交表单了。 看看吧,想改變這种現象!!<marquee>能移動內容,但它移動時有空白(要等全移完后才又重新移)能否不要這中間的空隙。 那里有 netapi32.dll 中所有的函数及结构体的Delphi版定义? 在ASP里怎么能才让字符的ASC2码值加一。比如a加一之后等于b 谁有ehlib和fastreport的使用资料,哪下载??? 有关排序的问题? 高分相送!,求地税信息化方案 一个java程序,怎么写不进去?等待…… 请问雅思英语辅导去那家啊?找不到好的啊! 英国的哪些作家比较著名?说出他们的代表作 十八世纪英国启蒙主义文学的代表作家笛福,其代表作是? 英语读后感结尾时态我写了一篇英语读后感 结尾评论是写 它只是一个故事 但爱是真的 是用过去时还是一般现在时 著名英国作家有谁 如此 以至于的英文到底是什么? 写英文名著小说的读后感应用什么时态? 与辛弃疾同时代的英国作家 Just For Once I Wamt Some One To Be Afraid Of Losing Me的英文意思 at the end by the end in the end at the end of 有何区别英语不好 都帮帮 山东省小学6年级下英语配套练习册P 6 第 3 题的 :4 ) There is an umbrella ___ the road.求你了!2009年审查通过的! I want some one who's afraid of losing me.----- We 'll have to do the dishes before mother___home.A will come B comes C is coming D come 山东省小学6年级下英语配套练习册P 6 第 6 题的 :There is a radio ____ the house. 填空:鲁滨孙是英国作家笛福的长篇小说《鲁滨孙飘流记》中的一个____、 ____、 ____的主人公鲁滨孙是英国作家笛福的长篇小说《鲁滨孙飘流记》中一个____、____、____的主人公(六年级下册题 谁有2011年广东成人高等教育学士学位英语答案? 山东省小学6年级下英语配套练习册P 6 第 6 题的 :There is a boat ___ the house and the tree. 鲁滨孙漂流记是英国作家那个 I see three people on a bus.A speaks Englishi and Japanese. C only talks with B. B can speak Chinese and Englishi. what language does C speak? C speaks ____. is,photo,of,my,here,daughter,a 连词成句 鲁滨逊漂流记是以第几人称写的长篇小说 “机械设计制造及其自动化”用英语怎么说? This is a photo of my brother改为否定句 怎么改 If there is only one day left in you life ,what will you do? 写《老人与海》英语读后感的时态是过去时还是一般现在时叙述故事时是用过去时还是一般现在时 EF的Englishtown是不是在线口语课?有什么特色嘛? 英语到底要怎么样才能学好啊?表示我初一初二英语没怎么学 这个暑假复习完初一上册的了 还剩下三册怎么办啊 怎样既速度又有质量的学完它 look!SOME CHILDREN_____(sit)under the tree. 英孚在线口语课的Englishtown是全世界最大的吗? 英语要怎么学 we sit under the tree at lunchtime 对划线部分提问at lunchtime 划线 — — —sit under the tree? Englishtown的口语课老师最后是怎么打分的?最近有人介绍去上Englishtown,说是口语课不错,想知道这课上完以后老师最后是评怎么打分?评些什么呢? 现在的中学上到底学美语还是英语啊! 英语翻译 - Just for once i want someone to be afraid of losing me.- 英语到底怎样学 Englishtown的口语课方便上吗?对电脑有什么要求? i just want someone to be afraid of losing 英国文坛享誉世界的作家(至少3位)他们的名字和主要作品 英文读后感应该用什么时态 新古典主义在文学方面的发展及影响 英国文坛出现过许多享誉世界的作家,你知道他们的名字及主要作品吗?至少写出三位 translating 汉译英一般用啥时态? 用英语第一人称写小说,用什么时态?=.=突然就茫然了,用一般现在时感觉很奇怪.用过去时么? There is __"u" and __ "m" in the word "umbrella". 谁能帮我用英文介绍下苏丹 浅谈如何提高初中生英语听力水平论文答辩陈述词 有一首英文歌 大概是这样的 K 油米 苏丹的英语 Englishtown的课效果怎么样?上的人多吗? 推荐几首好听的英文歌- - 三克油. we'll have to sweep the floor before mother__(come/comes)back要不要加s 英孚教育的englishtown的每日电邮课程有用吗? 简爱是英国文学史上的第一部长篇小说吗? Aunt Green brought some apple pies for our picnic,(完成反义疑问句) Englishtown里有商务英语课程吗?看广告里好像介绍的不错 I just want someone to be afraid of losing - Let's take some food and drinks for our camp.-- Let's take some food and drinks for our camp.- And a tent ____,too.(选择填空)A.is needed B.should need ,为什么B不对? 英国著名文学家 简爱是英国上第一部长篇小说吗?快,有加赏
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘