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

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);

完全开放 微软开源.NET Core的执行引擎CoreCLR Swift与Objective-C的兼容“黑魔法”:@objc和Dynamic 网络技术,从“数制”开始学起——跟随王达老师一步步学习 UPYUN CTO黄慧攀:UPYUN这些年,一段“刚好”的旅程 2015移动游戏重中之重:需成功把握1%付费用户的心 UNITE 2015 BEIJING 20大议题首爆 死路一条?智能硬件免费没有未来 APICloud推出“模块 Store” 公布APP创业 “Time to Market”战略 极路由加入海尔U+联盟 可跨品牌控制多款家居设备 《近匠》Amaze UI:做最懂中国程序员的开源HTML5框架 Testin CTO徐琨:要做测试领域的阿里云! TIOBE 2015年2月编程语言排行榜:JavaScript排名达历史最高点 机智云发布第二代GoKit开发板,兼容Arduino与Intel Edison 计算机视觉,让冰冷的机器看懂这个多彩的世界 昔日学霸反哺教育 打造教育领域今日头条 第三方DevOps实践报告发布 84%中国企业预将受益 《程序员必读之软件架构》作者Simon Brown:架构师与程序员的区别 Xcode 6.3 Beta发布,Swift 1.2带来哪些新变化? 应用生与死:移动测试究竟该怎么搞? Chrome将跟SPDY说再见,拥抱HTTP/2 ImageNet挑战赛中超越人类的计算机视觉系统 微软发布首款Android可穿戴设备人工智能产品 红包大战!双11过后,微信支付宝的又一个营销游戏 O2O大潮来袭,洗牌将至? 谈谈UI架构设计的演化 Node.js 开源基金会成立,Joyent让出领导权 LinkedIn分布式实时性能跟踪与效率优化实例 DIY机器人不是事!软硬两不误的开发平台RoboCORE 详解OS X和iOS图像处理框架Core Image 快的打车联合创始人兼技术副总裁闻诚:CTO要有“334”能力 阿里巴巴正式加入W3C,成为W3C会员 如何调用返回不定字段个数的存储过程 那里能找到rational rose 有关FORM与ACCESS数据库的连接 如何使用photoshop把图像缩小到指定大小? 关于某种文件关联的问题 为什么用net send发送的消息有关不掉,点了好多次确定也没用。 怎么保存到数据库中?急急急! 电脑出问题了。 tomcat4.01+apache2.046组合问题:单个的都能运行,...可以加分.. %u的问题 如何调整对话框上工具栏的状态 关于query控件的一个问题 如何结束一个线程? FastReport怎么将没有记录的地方也画上格子??? 我的oracle9装上去之后怎么有7。2G那么大??并且还连不上MANAGEMENT SERVER只能独立启动??请指教!! Fastreport与quickreport那个更好用? 进者有分. 强烈要求铲除全国所有的收容所!!! 要用什么软件才能将CMOS参数备份到某个文件夹中? 请问怎么在建表代码里定义关键字? 请问把数据写入ListView控件内,有什么办法可以快点? win2k server dns 求助! 我在易趣上竞的一个数码相机,只要250元,但是只能拍26张相。我不知道是真是假? 一个搞不定的恶意网站 cout与printf的问题 没有路由怎样用一台服务器实现300台左右的电脑上网? ResultSet里读出数据的参数问题,马上给分 netvt(唯她 v1.1.1),进来拿你应得的分 如果我的程序中用了VFP,但是用户可能并没有装VFP,有什么好的办法直接替用户解决了这个问题,而不是提醒他自己去装 怎么保存到数据库中?急急急! 我用treeview显示数据库的数据,增加一条新记录后,要怎么样才能马上在treeview显示? 无法传值问题,高手急救!!!!!!!!! 在线等待:怎么为datagrid控件的某一格赋值? 请教如何在input上传筐里面限制文件类型? java的图形设计比如swing有前途吗?大家来讨论下,迷惑中。。。 计算机静电问题!! 错误在那里 请教批量update出错问题 请问串口方面的? QQ使用MFC42.DLL, 数据库的记录有文本、有图片、我想给它排成word样式的A4版预览、再打印如何实现 请问,如何在Form中画图啊??/ 水晶报表问题。急呀!! 一个奇怪的问题 TreeNode控件有折叠下一级节点这个命令吗? 大家好,请帮忙提供在C#中做帮助文件的好的方法或网站吗?谢谢了 QQ发送信息老是附加一个网址,有什么办法搞定它? 操作系统挂了,重装后如何恢复ORACLE DATA? 初学不懂:调用ActiveXObject("Microsoft.XMLHTTP") 时用的什么命名空间? 创建临时表 有关页面显示的问题,进来吧,高手们! 为什么我在VC调试一个程序提示出错后,在调整一个正确的程序也提示有错误,是怎么回事,是要在VC里设置什么吗 #儿时疑惑#我为什么不能像小鸟那样自由飞翔? 成长的桥阅读文中画横线的句子在文中起什么作用大神们帮帮忙 关于运动的合成与分解,以下说法正确的是( ) A.一个匀加速直线运动可以分解为两个匀加速直线运动 B.一个匀减速直线运动可以分解为方向相反的匀速运动和初速度为零的匀加速直线运动 C 子曰:“君子食无求饱,居无求安,敏于事而慎于言,就有道而正焉,可谓好学也已.”可谓好学也已 中通假字是什么,再将通假字解释 #儿时疑惑#鸟为什么会飞, 文中画横线的句子爸爸的花儿落了有什么含义它与文章要表现的中心有什么关系拜托各位大神 核能 核 能(1)核能俗称原子能,它是原子核里的核子——中子或质子,重新分配和组合时释放出来的能量.核能分为两类:一类叫裂变能,一类叫聚变能.(2)核能有巨大的威力.1公斤铀原子核全部裂 #儿时疑惑#卡罗莱纳鹦哥鸟和拟斑马和袋狼现在还有吗? 解释画横线的句子(宋国后面还有有一个“笑”) 核能是什么 鹤龟同池,共有80只脚.如果把只数互换,则有88只脚.求龟、鹤各有几只? 哪位大神可以给我解释一下图中画横线的那句话是什么意思?~~::>_ 英语短文答案 帮助你们更快完成作业,更快玩电脑.In China if you are seven,you have to go to school.At school you learn different subject.Science is one of them.We have three science classes a week.They are on Tuesday,Wendesday and F 河中鹤和龟共有100只脚.如果鹤的只数与龟的只数交换则共有脚92只,求鹤、龟原来各有多少只? 有限集合A=B的充要条件是什么?全题叫:有限集合S中元素个数记作card(S).设A、B都为有限集合,判断下列正误.我只问问A=B的充要条件是card(A)=card(B)为什么是错误的?正确的应该是什么? 有没有英语短篇作文?求70到150字左右.可以说放鞭炮的,玩电脑的等要有翻译的 乌龟和鹤共有200只眼睛,共有350只脚问,乌龟和鹤各有几只? 氢气有几个质子阿我还知道你们是怎么只到你们是怎么知道化学元素的质子数阿 必须用记的嘛 谁帮我写一片英文的做文啊 是初2年级水瓶的作文 上帝保佑 阿门要写关于这 的 生日:He was born in 1996.He was bor on Fed 2nd.1996.His birthday is Feb 2nd.性格:He is an outgoing student and he always makes us laugh.H 龟、鹤共有29只,有脚92只,龟和鹤各有多少只? 要是总有人跟你说,哟哟切克闹,切克闹啊切克闹. 潘多拉的秘密 内衣 怎么样?今天逛街看到一间潘多拉的秘密的内衣店,装修好好,营业员说是法国品牌,想问下有谁知道是不是法国品牌,看他们质量很好,就是价格有点小贵.急 急 急 文言文杯弓蛇影的意思 哟哟切克闹什么意思 卵胎生和卵生、胎生有哪些不同点? 屌丝气质呢?是说男的女的? 哪里出来的? 大白鲨是胎生还是卵生还是卵胎生 超蓝色星系是什么超蓝色星系的定义什么?百科上怎么没有TT 画横线的题求解答 胎生、卵生、卵胎生的动物分别有哪些胎生卵生卵胎生的动物分别有哪些,请多举一些, 怎么培养屌丝气质 嘿哟哟哟,切克闹,切克闹 龟鹤共池,已知龟比鹤多5只,共44只脚,龟有( )只.鹤有( )只.要算式.,不能用方程解决.,使用假设法. 25÷23精确到十百千分位?25÷23精确到十、百、千分位? 哟哟,切克闹. “小时候,我以为你很美丽,领着领着一群小鸟飞来飞去……”歌名 龟鹤共有脚100只,若将鹤换成龟,龟换成鹤,则共有脚176只,原来鹤多少只,龟多少只? 【高一数学集合部分】“xy>0”的一个充要条件是__________1.“xy>0”的一个充要条件是__________2.集合A={x|-20是x2+y2>0的 ____ 条件6.集合A={x|-2<x≤1},U={x|x≤3},则CuA=_______7.x属于A交B______x属 找几篇理性一点的文章找几篇600字左右的文章 要理性的 不要感性的 不要太长的 最好有感想 没有也没关系啦 这是什么星系赤经 22h25m41s 赤纬 1度16'48.99看起来模糊 某船从O处出发,沿北偏东60'方向行驶至A,又向正东方向行驶至C,再朝与出发相反的方向行驶至B,求∠ACB的度数快.这是一道关于平行线的性质的题目...可能要用到同位角,内错角,同旁内角的... 已知鹤比龟多14只,鹤的脚比龟的脚多18只,问龟鹤各多少只? 怎么知道两个物体组成合外力为零即动量守恒,就是在解答题目时怎么知道用动量守恒解答,例如两棒在磁场 设集合A=(-无穷大,1],集合B(2a+1,4a)(1)若A交B=空集,求a的取值范围(2)若A并B=A,求a的取值范围 以理性为主题 的作文 有H-、NH2+、H3O+离子吗?有什么反应? 求道高二物理题在光滑绝缘的水平面上有一个不导电的弹簧,弹簧的两端分别与金属小球A,B相连,若A.B带上等量同种电荷,弹簧伸长x1,若让A.B所带电量都曾为原来的2倍,弹簧的伸长量为x2,则x1与x2 要英语过了四级才有资格考公务员吗? 1.6g NH2-离子中所含电子数 鼻子红的长长的背上有黄又有绿的是什么动物 #儿时疑惑#小鸟为什么会飞?我为什么不会飞? 英语翻译阿门 我甘愿为我犯过的罪作出应有的惩罚 只愿 我所爱的人过上安乐生活 一艘船沿正东方向航行,行至A处折向南偏东60°方向航行,行至B处后,若该船仍向正 文言文杯弓蛇影解释方,恶,既,疾,不的意思.后世常以“杯弓蛇影”比喻 ,从文中可见乐广的客人 的性格特点 25℃、l0lkPa下,22.4L氢气含质子的数目为3NA, 蓄意诈骗的定义我公司与一家厂家签订了一批货物!全额付款后对方只发给我公司不到1/3的货,我公司一再催促对方发货!时间转眼过了四个月了还是没见对方发出货物!要求其退款也迟迟未见退 #儿时疑惑#为什么小鸟能飞 这个是什么星系? 关于诈骗的定义本人与人合作项目,给对方发货物.对方承诺货到结款.结果货到了两车只是把运费付清,货款一直没有结.本人出于无奈让对方出具了一份欠条.请问这样构不构成诈骗?我目前应该 吴士存:《联合国海洋法公约》在南海的中国与中东欧青年政治家论坛在京闭幕澳大利亚山火为军事训练导致 澳国防部伊朗议员:伊朗已暂停提炼纯度20%浓澳大利亚山火为军事训练导致 澳国防部全球最适宜工作跨国公司排行 谷歌名列美一农民发现两副恐龙骨架 有望拍出2澳大利亚灭火消防飞机坠毁 驾驶员被证国考网上报名结束 37个职位报名比例专家称考公务员热反映收入分配、社保制东京举行国际数字博览会 显示器也能卷美媒曝美无人机行动得到巴默许 巴政府伊朗议员:伊朗已暂停提炼纯度20%浓国际社会讨论在南极建立迄今规模最大海世界泰拳王与中国功夫王广东见面会上大印度总理辛格:印中需要合作而不是对抗印度总理辛格:印中需要合作而不是对抗中国央行与美国联邦存款保险公司签署谅纽约大学教授:放松众筹融资限制意义非网购成为中国消费新势力 规模跃居世界人大常委会询问财政科技资金:好钢要用抽检千余批次 9批次不合格荔湾路昨起封闭西华路改单行道105和方舟子诉崔永元案已获北京法院受理湛江水产品出口大增十辆大巴今日免费送500人回家过年今年年花价格普降大型年桔量价齐跌广东湛江一区长携妻母游香港 招商局长让孩子重温老玩具广之旅推出定制自驾游小团小德无缘澳网4强基尼系数“久违了”人民币对美元汇率逼近“5时代”上周A股新增 开户环比增加5.46广告:首届“国际理解教育”论坛昨日在广告:马年生肖卡 让压岁钱稳健增值严重污染 尾数单双限行浪子燕青巧获宋徽宗特赦令青涩时光的暗暗爱恋 存在记忆里会更美涉10亿元或创“硕鼠”之最老伯无偿献血35次 今患重病得血站相泰国政府宣布在曼谷及周边实施60天紧
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘