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

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

UiModeManager设置夜间模式和行车模式 Android 2.2新增的DeviceAdminInfo类 Android获取摄像头详细信息 Android流量统计TrafficStats类的使用 电子邮件解析android.net.MailTo类 扫描和获取OBB文件信息 Android加速感应器开发平衡球代码解析 StrictMode限制模式API加速你的应用 手势识别兼容Android 1.x和2.x的代码 NativeActivity类在NDK中管理Activity OBB文件和StorageManager类使用介绍 DownloadManager下载管理类2.3新增API介绍 Android平台上的11个感应器你都知道吗 Android 2.3中的java.io.File类新增功能 更轻松的获取APK文件安装时间 Android控件对应表,丰富你的UI设计 Android开发进阶之NIO非阻塞包(八) Android开发进阶之NIO非阻塞包(七) Android开发进阶之NIO非阻塞包(六) Android开发进阶之NIO非阻塞包(五) Android开发进阶之NIO非阻塞包(四) Android开发进阶之NIO非阻塞包(三) Android开发进阶之NIO非阻塞包(二) Android开发进阶之NIO非阻塞包(一) Android开发进阶教程系列(一)目录篇 Android开发调试工具TraceView多图演示 Android JNI实例代码(二) Android JNI实例代码(一) Android JNI开发高级篇 Android NDK开发技巧二 Android JNI开发进阶篇 毕业设计的问题,请各位高人指点! IP控件 请教!!! isapi 奇怪问题! 配置站点问题 那有统计程序写多少行的程序? combobox控件的问题 欲购pc,求助!!(进者有分啊) 高分求教!! 建立表得问题 求javascript得到vbs产生的数组 阿菜求教!一个已经建成的dbf数据库怎么修改其字段长度呢? 请问怎么样才能开发手机游戏? 那裡有用java寫的小游戲的原馬呀﹗﹗ 请问怎才可以让图象中有网格啊? 高手指教 配机!!求助!!(进者有分啊) 这样简单的程序怎么通不过! session值修改还是未解决。 一个问题? flashget怎么用? 怎么相应动态创建的控件的事件 关于多媒体播放器的问题 快结婚了,可男朋友依旧把前女友的照片当成宝贝,我该怎么办? 建议组织一个水园老五大联盟。有支持的请up ! jspsmartupload上传100M以上的文件报错怎么办? 高分求助! 在那里下载jsp服务器的软件? 大家帮个忙,急寻南京兼职,饿死了 在unix下如何编译自己写好的c语言程序? 有个问题请教 ? 保存电脑技巧的问题。 在linux下怎么使用SAMBA使用windows下面的东西? 菜鸟级问题 我要在com+中间层返回sqlserver服务器的时间,怎么通过sql语句实现? 女友是空姐没有安全感怎么办 有几个概念不清楚, 劳驾哪位给解释一下 在unix下如何编译自己写好的c语言程序? Listbox 拖放的问题!解决就给100分! orical 我的测试连接失败! 小问题,别笑! 新手对指针的理解,大家指点指点,多谢!! 重载问题??? 高分求助! 哪里有截取vpn数据包的代码学习啊??? 怎样写贴子的标题才能吸引大家的注意?举例者一律给分! 关于API 为什么我的资源管理器反应很慢? 南京远志科技公司怎么样,马上要去面试了,请大家谈谈情况 请问这是什么意思 100分马上给 升四个▲了,散分!!!顺便问问那些两个星星的,你们升到两个星星以后的心情是什么样的?会不会有些失落感? 谁知道mediaplay控件 有没有直接到 一段视频文件结尾的方法 螺旋测微器的微分筒不是50分度的吗?怎么不要乘上0.02? 左手定则、右手定则实际是磁感线还是磁感应强度方向穿过手心?如果研究匀强磁场,这两个方向一致,但如果不是匀强磁场呢?应该是磁感应强度方向吧?不然可能出现受力和磁感应强度方向不 母乳喂养提高婴儿免疫力是属于自然免疫、人工免疫、还是特异性免疫?如题要具体原因 千分尺的转筒怎么看 测电阻时把挡打到200k欧上测得的数学是001.835请问怎么读这个数学,用什么公式? 为什么电容器两端电压升高 废物利用怎样用矿泉水瓶子做花瓶 锗是什么锗有什么用,作用是什么,用途方面等等详细点的解释健康用途有哪些 已知AB=OB,CO=CD,E,F,M分别为OA,OD,BC的中点,求证ME=MF如题图形 质量M=6000kg的客机,从静止开始沿平直的跑道滑行,当滑行距离为720m时,达到起飞的速度为60m/s问:若滑行过程中受到的平均阻力大小f=3.0*10三次方n,牵引力15000N,要达到上诉起飞速度,飞机的滑行 为什么有些元素有很多同位素,然而有些元素却没有同位素啊?rt为什么为什么啊?不是我不知道,就算我不知道我也能查到每个元素的大致的丰度,为什么会有这么大区别!! 汽车原灯泡55w可以换100w吗 只要磁感线是直线,该处磁场一定是匀强磁场1.关于匀强磁场,下来说法正确的是()A.某磁场中只要有若干处磁感应强度相同,这个磁场就是匀强磁场B.只要磁感线是直线,该处的磁场一定是匀强 无同位素的元素有单核粒子是指什么? 已知下列各微粒的结构示意图A+17 )2)8)7 B+12 )2)8 C+18)2)8)8 D+11 )2)8)1 E+16)2)8)8F+17)2)8)8判断:属于原子的是,属于阴离子的是,属于阳离子的是,达到稳定结构的是 质量M=6000kg的客机,从静止考试沿平直跑道滑行,当滑行距离x=720m时,达到起飞速度60m/s.滑行过程中具有多大加速度若不及滑行过程中所受的阻力,则飞机受到的牵引力为多大若滑行过程中受到阻 同位素不就是元素吗? 55w灯泡可以直接换100w的吗 什么是微分头 儿童遥控车的问题我儿子的遥控车是他的姨妈从韩国带来的,遥控器里是四节五号电池,可是原装电池用完以后,再装别的电池就不再管用.我去超市看了卖的遥控车,见到上面标的有40HZ,有25HZ还 注射疫苗是什么免疫?特异性免疫?还是计划免疫? 元素“镓”字用粤语问么读? 遥控车对孩子有什么作用 “彧”这个字拼音是什么?彧这个字怎样输入? 按每5千克废纸可以产生4千克再生纸,每千克再生纸可生产2元钱的效益计算,1440千克废纸产生的效益是多少元?要脱式计算. 在左手定则中四指指向电流方向什么意思某实验小组,探究通电导线在磁场中的受力方向跟电流方向、磁感线的方向的关系时,连接的电路和导线放置的位置如图所示(为了使导线中的电流 计划免疫与特异性免疫的区别是什么 氮化硅(Si3N4)中氮元素的质量分数为___要计算过程.. 40千克废纸可生产25千克再生纸,每千克再生纸需要多少千克废纸?每千克废纸可生产多少再生纸?列式计算 左手定则能不能反过来用,判断电流方向左手定则根据电流方向可以判断运动的方向,那么能不能用左手定则反过来根据运动方向来判断电流方向呢,但是左手定则反过来所判断的电流方向和右 (Si3N4)氮化硅叙述正确的是( )A 140克氮化硅中含硅元素的质量为84克 B 氮化硅的相对分子质量为140克 1吨废纸可以加工700千克再生纸,4.9吨废纸可以加工多少前可再生纸?加工4.9吨再生纸,需要多少吨废纸?只限半小时, 左手定则四指指向的电流方向,是以哪条导线的电流方向为准? 小朋友坐滑梯属于平移现象吗 同位素和元素怎么区别好理解的 车间级机械设备的故障诊断与预知维修,采取的是振动测量,主要测量哪些设备?可以设定某一特定的车间机械. “电动势的方向是电源内部电势升高的方向”这句话哪里错了 元素和同位素有什么区别? 加工中心的故障诊断及振动测量用什么仪器比较好?有做过的案例吗 matlab作一个三维曲面以p,p0,z,分别为x,y,zz=(1-T)-(1-T0);1-T={2(sin2p-sin2p0)}/[(1+sin(2*p))*(1-sin2p0)];1-T0=2{sin(2*(p+Q))-sin(2*(p0+Q))}/{[1+sin(2*(p0+Q))]*[1-sin(2*(p0+Q))]};做成3、维图, 同位素与元素有什么区别吗?高分悬赏 07ODS想换远光灯,原车55W能加到100W吗?不知线路.反光罩能否受的了, 第一次收集废纸7.5千克,正好卖了6元钱.第二次收集了12.5千克废纸,按同样的价格卖给废纸收购站, 是不是每种元素都有不同的同位素?具个例子好吗?例如稀有气体? 普通螺纹的螺距常用钢尺和什么进行测量 第一次收集废纸7.5千克,正好卖了6元钱.第二次收集了12.5千克废纸,按同样的价格卖给废纸收购站,第二次收 碳元素组成的单质除金刚石外,还有一种是什么?它构成的粒子是什么? 彧这个字怎么读? 用铮组词要成语 什么是PC钻石颗粒板? 为什么正常雨水酸性变强不是因为溶于水二氧化碳变多? 我不小心把数显千分尺微分筒转到头,然后转回去了,卡住了怎么办? 在磁感应强度为b的匀强磁场中,有一与磁感线垂直且水平放置的长为l的摆线,挂以质量为m,带有+q电荷量的摆球,试求摆球通过最低位置时绳上的拉力F(匀强磁场为垂直与纸面向内) 如图,ab、cd相交于点O,且bd=bo,ca=co,e、f、m分别是od、oa、bc的中点,求证ME=MF 数字微分和模拟微分的区别问答题求答案 电场那一章的 求达人画的有点粗就是一个导体球外套带电量为Q的金属球壳然后那个金属球接地金属球半径r1 球壳半径r2 然后叫你求各个区域的电势有耐心的可以看看的我的不解老师讲的时 特异性免疫包括人工免疫吗 14.如图所示,真空中三个点电荷A、B、C,电量均为+q ,两两相距L放置,求:C所受的静电力大小和方向这是一个三角形图 这组齿轮参数是否能正确齿合(参数如图)参数详见表依次为,太阳齿轮,行星齿轮,内齿圈,行星架,行星齿轮共3个 ------------------------------------------------------------------------------------------------------ 什么是天然免疫和特异性免疫.请举例说明二者之间并无截然界限重点是 请举例说明二者之间并无截然界限!不用解释什么是天然免疫和特异性免疫 俄注重文化保护 文化事业拨款70%用穆尔西审判延后 分析指与穆沙拉夫审判科索沃举行地方政府选举 投票点遭蒙面印尼巴厘岛男子咖啡地中发现2000多美参众两院大佬不宽恕斯诺登 将派“安三中全会前夕高层密集调研民生 为改革李克强登上拖拉机驾驶室与农机手交谈梁振英:菲人质事件若1个月没成果将采曝湛江国资委官员带女下属开房 视频男李克强:农业改革要尊重群众意愿和首创德国拒绝为斯诺登提供庇护 避免影响德最高法通报失信被执行人名单信息制度五越南总理坚持推动TPP谈判 争取年内科索沃举行地方政府选举 投票点遭蒙面杭州商品房库存量达10.5万套新高 清华剑桥等名校联手研究北京雾霾天出行日媒:安倍上任后已打13次高尔夫 展印度今日雄心勃勃探火星 媒体议论“与美国新泽西一商场发生枪击事件 暂无人英内阁会议为防监听禁用iPad 高官安倍夫人昭惠拜访熊本县 体验韩式穿越引入社区“啄木鸟”,济南揽1800名媒体:黄奇帆离任,重庆房价会涨吗?姚明任篮协换届会议筹备组组长刘建超:追逃追赃对遏制腐败滋生蔓延起刘建超:追逃追赃对遏制腐败滋生蔓延起八一深圳女排赢新年主场首胜 俞觉敏:携手《焦点访谈》 见证诺贝尔瓷抛砖品CES新亮点!Halos智能配件获外刘建超:反腐败国际执法合作应该成为国朱国贤:忏悔录是最好的开展党性教育的有利网荣获2017胡润中国新金融网贷国美华人金融获2017胡润新金融百强东营:紧抓供给侧结构性改革主线罗东川:对那些胆敢向扶贫等领域伸手的吴玉良:无论是党内监督还是国家监察都吴玉良:制定国家监察法实质是推进反腐肖培:十八届六中全会通过一部准则一部东营区全面打响拆违治乱攻坚战取得显著2017世纪新思力机器人狂欢节圆满成刘建超:中国已经和48个国家签署了引吴玉良:今年上半年将实现一届任期内巡
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘