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

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

财税街创始人石克清:创业须空杯心态+有效社交 自我知识管理:连贯性就是生产率 玩转Google I/O 2015:Android M、IoT、Glass 2.0、VR、ATAP ARC中Retain Cycle揭秘 失控与逆转!企业移动化2.0时代下如何求变? 玩转物联网之MQTT 专访都灵创客教育奚炎:被忽视的Maker教育 13岁iOS开发者:Swift开发Sprite Kit游戏实践 专访豌豆荚「自动装」开发团队:无需Root即可批量点击「下一步」 iOS项目的持续集成与管理 《近匠》谛听科技,探索智慧家庭的智能网关 【简讯】Python 3.5.0b1发布 《算法的乐趣》作者王晓华访谈:多看、多做、多想是秘诀 专访李祎:Java在Testin的技术应用 React首部经典图书推荐:全程经典实例,360度剖析React.js 再做一个Android!Google发布第二代VR眼镜Cardboard Go语言开发常见陷阱,你遇到过几个? 奏响年度最强音 第七届中国云计算大会日程全公布(表) 【CTO讲堂】请在还年轻的时候,尽量多踩些坑 以细分使用场景为突破点 探究墨迹天气的体验创新 熟练成就创造——MathWorks全球副总裁Richard Rovner、产品市场经理赵志宏专访 Objective-C编码规范:26个方面解决iOS开发问题 豌豆机器小组发布最新WRTnode2R,支持华为Liteos、QQ物联与AllJoyn [新书推荐]Node.js项目实践:构建可扩展的Web应用 【简讯】Perl 5.22.0 发布,大幅改进代码! 【征文】特别策划——群雄逐鹿共话新型数据库 针对DCloud侵权质疑,APICloud发布声明 《近匠》小鱼天气,中国风与细粒度空气质量检测 Xcode 7 beta发布,Swift 2.0带来哪些新变化? 【有奖征集】MDCC 2015演讲议题征集全面启动 Swift语言那些鲜为人知的特性 win.ini与SYSTEM.INI的区别? Oracle 的产品真的很烂吗?参与者都有分! 现需开发一套对多个数据库(不是一个数据库中的多个表)进行操作的程序,使用BDE,请大家提建议 CPen的问题! 各位请教:我要通过电话线做多路远程接入但我不想用路由器 请问,使用ado控件的程序,考到其他机器上,除了数据库和应用程序之外,还需要拷贝什么文件? 部分技术超过OFFICE 国产软件挑战微软 关于子窗口 请教:uninstall onflow.exe和wcmdmgr.exe是什么软件? DataSet如何定位记录. lius_lzc(小刘)你好。请来这 高程成绩 不是高手不要进来!!!!!!!!!!!!! 那位大侠能说一下快手的原理啊,有源码最好???????????????? 各位有什么网站可在线看片或下载东西,网速要非常快,如果有请与大家分享,如果没有请勿进,免得大家试半天的网址,谢谢合作 实模式和保护模式的区别? 一个只问小湖的问题 ASP 中的 Response.End 在JSP中怎么写??? 有关多媒体数据库的问题 笨鱼笨鱼,好象你的故事大家都知道了,贴张相片出来给大家看看,大家说好不好啊?? 请教关于第三方控件的问题,谢谢 软件工程师们,你们开发软件的时候听什么音乐呀? 各位大侠,请帮助一下初学者 CPen的问题!!!!!!! 我在泡脚呢,给大家发分,打听一下你们泡脚的时候都干什么? 关于新的论坛数据的提问 在Delphi如何存取SQLServer DataBase表里的图像记录?(100分) 怎样循环更改窗口图标? 请问,那位能帮忙给个Email地址和url地址的正则表达式。急用,在下不胜感谢! 各位网络高手请进! 关于服务端用自己(socket)的程序,客户端用IE,怎样把客户端的数据信息传给服务端? 共享锁,排他锁有什么不同?· 请问在D3D8.0里可否加汉字?要注意什么?多谢! 请问有没有这样一种类似容器的东东,它其中的元素可以是异构类型,比如可以同时放类A,类B的对象 呵呵。前几天狂问问题狂送分,现在分快没了。 我得计算机怎么播放rm格式有问题啦!大侠们给个招吧! 如何在ctree view 中改变tree 的风格? 如何成为一名程序员? 帮帮我!!如何将一个Single(单精度型数)小数点后面那么多位去掉,我只要后面两位就够了。 急需高手(小菜鸟之SOS) 用什么办法可以另存一个表,结构和数据都和原表一样。 much point!!!谁能告诉我html的标准文档在那里可以下载,最好有状态转换图 如下菜单设置语句中,m_a.m_1.m_2.enabled=True ,如果m_2用变量ss,怎样写? 请问,哪里有turbo c3.0-下载,告诉我下载地址/ 各位:你们是怎样将TreeView与数据表联系起来的? [新版增强]BBS社区消息搜索软件 To Visual C++ [新版增强]BBS社区消息搜索软件 To Visual Basic [新版增强]BBS社区消息搜索软件 To Delphi 各位高手帮帮忙:为何在程序中设置打印机纸张不起作用?设置打印字体却起作用? 我不得不骂人了!!!!这老师应该下岗 [新版增强]BBS社区消息搜索软件 To C/C++ [新版增强]BBS社区消息搜索软件 To C++ Builder 为什么说债券的市场利率越高,债券的发行价格越低?什么是市场利率? 道什么什么什么成语是成语接龙 混凝土立方体抗压强度标准值具有95%保证率的抗压强度.这个95%的保证率是什么意思? MRP、MRPII、ERP的含义是什么? 回弹碳化深度是如何测定碳化深度值测量,可采用适当的工具在测区表面形成直径约15mm的孔洞,其深度应大于混凝土的碳化深度(大于10mm)。孔洞中的粉末和碎屑应除净,并不得用水擦洗 成语什么其谈 MRPⅡ的定义及功能不要答非所问,告诉我些其他的什么在MRP的基础上演化而来之流的.只要告诉我定义、功能这两点就行了. 用回弹法测混凝土强度,回弹仪上面有碳化深度修正系数怎么用啊? 什么而谈的成语 哪种铜的导电率,导热率好?红铜(也就是红铜),黄铜(康铜),铍铜等最好有详细的参数.请分别作答.红铜(也就是紫铜)--上面打错了我现在需要做焊接实验,需要用铜做电极.红铜(也就是紫 何谓开环MRP?其基本构成及逻辑关系是什么? 混凝土回弹仪测量中的碳化深度有什么意义?什么是碳化深度 哪种铜 导电,导热性能好,抗腐蚀性哪种材料导电,导热性能好,散热快,抗腐蚀性( 要求耐酸缄)强啊 简述市场营销活动中传播信息的构成要素? 沂南诚信石英砂厂怎么样 水泥砖和粘土砖哪个比较好 建设市场构成要素有哪些 在括号里填反义词,组成成语 急用是填反义词呃,比如口(是)心(非) 忆( )思( ) ,出( )入( ),( )不尝( ),同( )共( ),( )应( )合,顶( )立,( )劳( )逸,顾( )失( 一立方水泥砖多少块 每月完成计划的百分数是怎样算的? 在括号里填上反义词组成的成语()来()去 既()异() 改()从() 弃()图() 帽()神() ()来()受 好()恶() 以()求()在括号里填上近义词组成的成语见()识( 为保护耕地,许多地方都不再使用实心粘土砖,广泛使用发泡水泥砖,某发泡水泥切块的长宽厚分别为60cm、25cm、20cm,质量是15Kg,这种发泡水泥建材的密度是______kg/m的3次方 混凝土强度百分比咋算的测压出来的7天试件的数值是454,要求强度达到75%,怎么算达到没达到啊 在括号里填上近/反义词,组成成语填近义词:例.冥(思)苦(想)()方()法()当()对()计()算填反义词:例.口(是)心(非)前()后()不()则()()奉()违()入( 氧化镁和水反应?初中里不是说不是只有生成可溶性碱才能反应嘛,怎么高温还能反应呢 混凝土抗压试验报告,有一代表值.怎么计算强度达到了百分之多少 在括号里填上反义词,组成成语( )腔( )调 ( )顾( )盼 ( )赴( )继 此( )彼( ) 辞( )迎( ) ( )辕( )辙 头( )脚( ) 有( )及( ) 一( )一( ) 此( )及( ) 童趣第一段在结构上起什么作用?它与其他各段是什么关系 金融市场上的卖空是什么意思 在括号里填反义词,组成成语‘推( )出( )评( )论( )天( )地( ) 童趣第一段在结构上起什么作用?他和其他各段是什么关系 金融市场里, 石英砂坩埚是什么?跃鑫石英砂厂有石英砂坩埚吗? 《爸爸的花儿落了》为何以此题目为题,具有什么深刻的含义?“花”在全文结构中起着什么样的作用? 请问:金融是什么意思? “急”求各位大哥大姐帮解释“混凝土抗压强度计算表”怎么看呀? 谢谢啦!其中fcu,k n λ1 mfcu fcu,min sfcu mfcn— λ1sfcu 0.85fcu,k 0.9ffcu,k0.95fcu,k 1.15fcu,k 分别都是什么意 混凝土立方体抗压强度标准值的名词解释 FC在金融领域里是什么意思? 能组成啥成语? 社会学功能论 冲突论 互动论 是什么, c20混凝土用回弹仪回弹大体多少回弹值是正常的? 这个能组成什么成语? 社会学研究有什么实际意义和功能 硝酸镁受热分解成氧化镁么?分解温度是多少? ()()其来,怎样组成成语 社会学的意义为什么说社会学可以使人认识自我认识社会 或者说 社会学是如何使人认识自我认识社会的 最好结合实际举例说明 怎样分解氧化镁?如题,如果好的话追加5-20分. 首和身,组成成语 用社会学功能论的观点解释为什么电脑病毒一直存在 氧化钙与氧化镁在和三氧化二铝反应的时候那个需要的温度低? 混凝土立方体抗压强度设计值和标准值的区别是什么 二氧化硫和浓硫酸反应两者反应吗?方程式?另外再问一个问题:气体溶于水溶质怎样判断,像是SO3溶于水形成H2SO4,溶质为硫酸,而NH3溶于水溶质仍是NH3,不按一水合氨来算,为什么?其他的怎样判断 什么而谈成语 氧化铝到刚玉氧化铝与刚玉有什么不同呢(是结构还是杂质还是什么)?很多东西主要成分相同,但是为什么性态不同呢?能不能给出好理解一点的解释 三氧化二铝能不能与浓硫酸反应 浓硫酸为什么可以用铝罐装 什么道来成语 99氧化铝和刚玉的区别 利率的构成要素是什么? 口什么什么道 成语 有种厂叫“刚玉厂”刚是这个刚,玉不知道是不是这个玉,说“刚玉”是氧化铝好像
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn