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

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

PaaS正能量:6人团队,仅1人全职后端 支撑6000万用户 三星:我不抽成,收益100%让开发者拿去! 腾讯开放平台推“送红利计划” 承诺半年内不参与分成 JavaEE快速开发框架Wabacus 4.0发布,开发效率提高五倍以上 市盈率创新高 谷歌为什么会在苹果博弈中暂时胜出 从Rovio遇到危机,看现在应用市场的演变 Windows Azure支持Android应用 面向东亚推广云服务 抛弃DRAM、拥抱闪存,Facebook重做Memcached 夏普三星联姻 电子行业或将多元化发展 从下拉菜单设计细节看Amazon对用户体验的把握 Chartboost美女CEO:40人团队服务3亿移动玩家 Distimo:新晋开发者想让产品得到关注越来越难 OpenFeint绝迹后,开源项目OpenKit继续前进 美FDA通过搜索引擎和社交平台预警药品副作用 挖坟三星“眼球追踪技术”背后的技术团队 为什么开发者热衷在Stack Overflow上查阅API文档? Facebook推新News Feed 欲造就“个性化报纸” 女神程序员的一天:暴力测试social爬虫代码 2013IBM云存储路线图:更快,更简单,更安全 二战大数据故事:数学家、物理学家、概率论击败德国潜艇 软件定义网络服务商Pertino B轮融资2000万 Scringo社交组件,让你的应用“热闹”起来! Android开发必备:Eclipse 4.2 SR2版本发布 32场!2013年360HTML5校园行首站告捷 移动周报:不做内容,只钻技术的快播 一周消息树:中国开源发展缓慢的“病因” 百度应用引擎BAE正式开放 新增支持Node.js CloudVelocity,下一个VMware? Buffer创始人谈开发:先验证,后编程! 谷歌可穿戴式产品再度来袭:会说话的鞋子 未来Chrome OS或取得Android般成功 我太高兴了,太喜欢这里了 谁帮我把这个帖子加点分啊~~~(女士优先!) 送分题:怎样在退出程序时一次卸载内存中的所有窗体? 怎样上送软件到csdn 谁有比较快的新闻组服务器的地址? 如何找到各种系统图标?(VC) 姐姐的信(也是以前的) 请问,谁手里有PERL的表单提交程序?(不要能让访问者看的见的) vivianchou@eyou.com 我所遇见的招聘题。。。555 怎么回事~? 参天无眼!!我所遇见的招聘题呀,你。。。55555555555 哪位知道象windows优化大师那样的平面按钮控件。 c+vc+vb+java+delphi+>>>>=工作? 怎么得分呀? dos下的Tcp/Ip协议应用 白痴,笨蛋,神经病之差异(转贴) 测试(大家都不许进来,只是测试,注意,只是测试) 请大家说一下哪个代理注册的网站收费比较底,而且服务又比较好的,谢谢! 在asp中如何实现记录集与编辑框、table表等的数据绑定,给个思路也行。着急呀 [-------大虾帮忙啊--------] bcb中缺少的帮助文件能否再添加? 在哪里可以找到关于sybase的资料 哪位仁兄知道如何打包delphi开发的sybase客户程序,最高78分奉送 一个关于OnDraw()的重绘问题,急急急急急急急! 新手的问题! dll调问题???VB调用VC++的DLL需要返回值时,DLL如何定义?VB调用函数如何定义??? 各位大虾 谁能提供视频采集卡的原代码,必须要CB的,300分 在堆(heap)上与在栈(stack)上建立的对象有什么区别? 一个问题,在做元件时怎样建立TdateTimePicker 给大家看看我弟弟给我的信 求助,标题栏为“The police are investigating the robbery-"的是什么程序? 谁能将.CPP文件的代码翻译成DELPHI语言?? 有关于FLASH5.0的问题!!!请各位大吓指点! 一个问题,怎样在PC:PageControl上增加TabSheet1,TabSheet1,TabSheet1…. 标题栏为“The police are investigating the robbery-"的是什么程序? 一个弱弱的问题 一个问题,建立的 FB: TBevel没显示,好象根本没建立一样。 如何在 MDI CLIENT 中添加快捷方式??谢谢!! 55分,如何映射控件中子控件的消息? 如何选择书 关于文献数据库的一个问题-如何把一个字段和一个文件关联起来? 所有喜欢到水园来逛逛,但是从不回帖子或很少回帖子的人进来签到~~~~ 谁来救救我呀,我好惨呀。。。。 如何通过VC编程,随时关闭网络端口 诚寻对嵌入式linux感兴趣的网友 今天临走前,再灌一桶酒! 急!!!哪里可以下载到制作工具栏时用到的位图呀? 太原的在哪能买到程序员杂志 我的qq:10120129 谁找我??? xml 高手帮帮我,为什么我下面的文件,在IE5.0中什么也没有?? 1.234.56789.10111213141516按规律填数字 3,2,3,7,18,( ) 括号填什么? 全世界北纬18度的度假胜地有哪些. 1 234 56789 .2010在第几排第几个 2 2 0 7 9 9 ()括号里的数是18,请问是怎么得到的, 想知道:中国 北纬18度,经度78.24度 在哪 根据数字关系,括号内的数字应填( ) A.90 B.135 C.63 D.150 东经110度北纬35度是哪里 北纬18度在那个地方? 66.83.102.123.146.()推理 东经140度50分,北纬35度44分一个小说里写得 请问北纬18度有哪些国家的哪些城市?尽量多点,请问北纬18度有哪些国家的哪些城市?尽量多点,能提供点非洲的城市吗? -1,10,25,66,123,( )括号里应该是什么数字啊? 某地位于北纬35度,东经163度,该地位于( )A.高纬度地区 B.中纬度地区 C.热带地区 D.低纬度地区上题中该地可能处在( )①东半球 ②西半球 ③南半球 ④北半球A.①③ B.②④ C.②③ D.①④ 想知道: 北纬44度 东经4度 在哪 123%66^78-768=? A点东经120度,北纬44度,所在时区是( )区,B点东经90度,北纬35度,所在时区是( )区 北纬20度,东京5度,在北纬40度,东经166度,什么方向 excel 频次表 如下图的一个表格 我想统计所有数字出现的频次 怎么做好 最好详细点 谢谢A B C D E F 333330313131282929342733273029333 1(2)、(4、6)、(8、10、12)、(14、16、18、20)、……中,第100个括号中所有数的和是多少? 东经118度12分~119度36分,北纬32度43分~34度06分适合种植人参吗? 如何将EXCEL表中单元里的公式计算出来的数变为纯数字?如题. 20,20,10.18,16,8.25( ),( ).( ),28( ) 我实在不会做,快 想知道:中国 北纬24度,东经118度 在哪 将正偶数按下表排成5列,根据规律,2000在?2 4 6 816 14 12 10 18 20 22 2432 30 28 26 A.第125行第1列 B第125行第5列C.第250行第4列 C第250行第2列 2,5,20,12,-8,(),10 括号里面是什么数字啊? 北纬32度20分 东经119度45在哪个地方 将正偶数按下表排成5列若干行,根据上述规律,2010应在第1列第2列第3列第4列第5列第一行2468第二行16141210第三行18202224第四行32302826……………………………… 把10.20.30.40.50.60.70.80分别填入括号内使每5个数之和等210怎样填 24度03分北纬118度16分东经在哪里? 杨辉三角是一个由数字排列成的三角形数表,一般形式如下:杨辉三角是一个由数字排 不含“欧洲中心论”偏见的精神尤为难能可贵,值得后世永远敬仰、效仿. 把5.10.20.30.40.60.分别填在括号中,使每条边上的三个数的乘积相等. 东经114度北纬32度是哪里 杨辉三角第五行第五行的数是1,5,10,10,5,1 那 第五个式子应该是什么呢 有点晕. 5,10,20,36,( )90 括号内填什么? 北纬27度是一条奇怪的线吗? 杨辉三角 第五行规律用ab表示 )=2分之5=30/( )=30分之( )=( )(这个括号填几分之几 ) 北纬27度在哪?我知道在哪了!在贵阳,是产烟草的。 将杨辉三角形中的奇数换成1,偶数换成0,得到如下图所示的0-1三角数表,从上往下数,第1次全行的数都为1的是第1行,第2次全行的数都为1的是第3行,...,第N次全行的数都为1的是第( )行;第61行 5 8 12 16 20 () 30 36 52 括号里填多少? 东经113度北纬27度是什么国家 在杨辉三角第五行中,除两端的数字1外.在杨辉三角第五行中,除两端的数字1外,行数5整除其余所有的数.你还能找出具有类似性质的三行吗?这时的行数P是什么数? 按规律填数46 95 0 ( ) 33 18 7 括号中填几这个数个位上的数比十位上的数大5,而且比50小. 用什么规律来填的, 东经117度北纬27度是什么山脉 1 -2 3 -4 5 -6 7 -8 9 ---------------------------------按着这样的顺序,第十行从左数,第九个是多少1-2 3 -45 -6 7 -8 9---------------------------------按着这样的顺序,第十行从左数,第九个是多少 找规律(3.8.18.33.53__,__)快!,为什么?i am primary student 东经109度 北纬35度是啥平原很确定吗 如图中数字排列;则第10行第3个是()第n行第2个是() 第一行;1第二行;234第三行456789第4行10 11 12 13 14 15 16 5×9+15÷3-2=18使等式成立(加括号) 东经121°北纬38°是什么地方 将自然数如下排列,那么15125这个数应排在第几行的第几个?1 234 56789 10111213141516 加括号使等式成立3.6+2.4*3+1.5/2=18.75 北纬42东经38.76是什么地方 第一排是1,第二排是234,第三排是56789,问100在第几排第几个 18÷2×3+6=1 加括号,使等式成立! 东经122北纬38是哪里 1 234 56789 .表中第8行的最后一个数是(),它是自然数()的平方,第8行共有()个数. 2,2,7,18,31,90,(),括号里应该填?a.57 b.69 c.86 d.79 北纬50.38° 东经30.49°什么地方
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn