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

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

scrollTop()-JQuery API width()-JQuery API ajaxForm(object)-JQuery API ajaxSubmit(object)-JQuery API clearForm()-JQuery API clearInputs()-JQuery API fieldSerialize(true)-JQuery API fieldValue(successful)-JQuery API formSerialize(true)-JQuery API formToArray(true)-JQuery API resetForm()-JQuery API $.recallDroppables()-JQuery API $.SortSerialize()-JQuery API Draggable(hash)-JQuery API DraggableDestroy()-JQuery API Droppable(options)-JQuery API DroppableDestroy()-JQuery API Sortable(options)-JQuery API SortableAddItem(elem)-JQuery API $.meta.setType(type, name)-JQuery API data()-JQuery API disableTab(position)-JQuery API enableTab(position)-JQuery API tabs(initial, settings)-JQuery API triggerTab(position)-JQuery API triggerTab(position)-JQuery API Tooltip(settings)-JQuery API PHP简介-PHP初学入门教程1 选择PHP的理由 -PHP初学入门教程2 从一个简单的程序来了解PHP -PHP初学入门教程3 PHP语法基础 -PHP初学入门教程4 通信的同步与异步 TreeView中取得节点值时遇到问题!时间太紧了,请帮忙! 招聘上海java程序员 555~~~~~小猪妹我受气了~~刚才去打网络台球,有人骂我好难听的话~~我怎么报仇?? 求助! 十万火急!!!请各位帮忙 有关sql语句的问题,急,(sql = "SELECT id,title,addtime FROM news where special ='是'") 有人知道“达丰电脑”吗?说一下来~~ 请问,在VB中怎么调用 SQL server 的脚本文件?急急急!!! EXCEL、GRADS、SURFER、GRAPHER、MATLAB哪一个好以地图为背景画二维图? 求教高手关于Rose的问题 CComPtr<IFontDisp> 的QueryInterface 问题. 怎么编程实现通过代理服务器访问intenet? 十万火急!!!请各位帮忙 请各位大哥指教:想考研究生,问哪所大学的计算机理论与软件专业最好,能够给出个排名吗,谢谢 如何控制strtofloat所得浮点数小数点后的位数? 有个带有自动生成id的表,做数据窗口时,不能update(), 各位大吓我有一问,今天跟大争明白,大家快来给我做证啊!!! 查找相同字段的sql语句怎么写? 初学c#,感觉完全是在盗用java! 如何将avi文件转换为mpeg文件,帮帮忙了! 关于TPersistentClass使用时遇到的难理解的问题? 有没有谁用起过合计字段? 怎么样成为程序员大本营的用呀! 寻找 日语版的win 2000下载地址 机器在启动是会出现boot.ini非法,由c:/winnt直接启动,请问如何解决呢 Win2000和SCO UNIX共存问题? MSSQL中text数据类型,在JAVA中对应的是哪一个? 怎样才能不让用户复制文档? 如何在VB自定义过程或函数中传递数组? 在VC6中如何使用数据网格 需要类似pcanywhere or romoteanywhere中远程抓屏的源代码?方法提示也可以! 关于数据库中图象的存取问题,100全送! PowerDesigner8 显示与oracle连接信息? PopupMenu如何知道是由哪一个控件激活的(几个控件共用一个PopupMenu) 如何通过序数从DLL引出函数表? 有关datagrid的border问题? 在pb中用SetPicture(lb_image)当lb_image为空时picture的图片不变 急!!急!!如何用MultiByteToWideChar()实现Unicode编码?? 请问:这是叫什么服务来着? 请问有没有有关工作流技术的理论和资料 windowsXP与Visual C++问题??? 发布目录在哪里问题!!!!急急急 请教一个entity bean的问题 调查一下,微软的工程师工资有多少呀?做什么软件的工资最高? idhttp.get可以获得htm 文件,我现在想得到gif文件,怎么办? 不知大家有没有听说过Tapestry,是一个有关权限管理的开发原代码 请问C标准函数里是否有这样的函数,可以删除文件名相同但忽略扩展名的函数,如可以同时删除A1.LIN和A1.SA?谢先!!! 如何修改硬盘序列号(不是卷序列号,而是出厂序列号)? MS EXCHANGE SERVER 2000 在WEB页面更改MAILBOX的密码 our,here,fashion,are,clothes,show,some,for.怎样排列 设O是坐标原点,F是抛物线y^2=2px(p>0)焦点,A是抛物线上的一点,FA向量与x轴正向夹角为60度,则OA向量模. 在数轴上画出表示无理数根号15的对应点 ging to her some school our of we show are photographs连词成句 O为坐标原点,F是抛物线y^2=2px(p>0)焦点,A是抛物线上一点,向量FA与x轴正方向的夹角为60°,求向量OA Look!Here is a plan ______ our new school. flowers,teachers,here,some,are,for,our(连词成句) 抛物线y^2=2x与过焦点F的直线交于A,B两点求向量OA*OB(O为原点) 解方程求x a/(x-a)+b=1 (b≠1) m/x-n/(x+1)=0 (m≠n,mn≠0) ducks our eating some are picnic 连词成句ducks our eating some are picnic连词成句 寒假趣事作文450字急! 解方程求x:(1)a/(x-a)+b=1(b≠1) (2)m/x-n/(x+1)=0(m≠n,MN≠0) 三倍根号下4x分之1等于根号8,问x=几?急、、、、、、、、、、、、、、、、 若方程组x+y的a绝对值-2=0,(a-3)x+9=0是2元一次方程组,求a的值 已知关于x的方程x2+px+q=0和x2+qx+p=0有且仅有一个公共根,则p与q的关系是 已知关于X的方程3(X+M)=2M+X的解是X=1/2,求代数式M的平方-M-1/M+2的值 已知mn满足方程组m/2+n/3=13 m/3-n/4=3求mn的值 已知:方程x²+px+q=0的两根为α,β,而α+1和β+1是关于x的方程x²+qx+p=0的两根,求p,q的值 tree there school are many in our 连词成句 Our school is only ____ walk from here.A.5-minute B.5 minutes'1.为何选A的话要加a而选B不用,walk在这里做可数名词用.为何当5 minutes' walk作为一个整体时就不加a呢?2.名词所有格前的动词单复数形式应看前面 方程x²+px+q=0的两个根为a和b;a+1和b+1是关于x的方程x²+qx+p=0的两个根,求p,q的值?方程x²+px+q=0的两个为根a和b;a+1和b+1是关于x的方程x²+qx+p=0的两个根,求p,q的值? there,lot,school,of,rules,in,are,a,our(.)连词成句 Our school is only __________walk from here.A.five-minuteB.five minutes'A对么帮我解释下、、重点解释一下A为什么不选 已知,方程x²+px+q=的两根为α,β,而α+1和β+1是关于x方程x²+qx+p的两根.求p,q的值 we have too many rules in our school(同义句) ()()too many rules in our school急呢 2.our school is only ____walk from here.A five-minute B.five minutes' 请问是不是两个都可以?为什么? Here is a photo ( ) my school.Here is a photo ( ) my school.A.In B.on.C.Of friends,are,frogs,good,our 如何连词成句 Our school is only ﹍﹍walk from here.A.five-minute B.five minute’s C.five minutes D.five minute’ 解关于x的方程mnx-n平方=mn-m平方x Is running in good many to our ways health.英语连词成句 选择填空 Our school is only ____ walk from here.A five-minute B five minutes' 为什么 解方程 mnx²-(m²+n²)x+mn=0(mn≠0) 2根号x-1等于(x-1)分之一2乘以根号x-1等于(x-1)分之一,结果是? 已知a是实数,且方程x^2+2ax+1=0有两个不相等的实根,试判别方程x^2+2ax+1+2(a^2-1)(x^2-1)=0有无实根? 已知a是实数函数f(x)=2ax²+2x-3是区间【-1,1】上的单调增函数,求a的取值范围高一的,求大婶解答 关于x的方程(1-m平方)x平方+2mx-1=0的2个根,一个小于0,一个大于1,则实数m的取值范围 it is about five hundred meters away from my home to our school(对划线部分提问)about five hundred meters away 在数轴上表示根号八,并比较根号八和2.7的大小关系 怎么样在数轴上画出标准的无理数负的根号五 It's 1000 meters from our school.(对1000提问)(对1000提问)(对1000 meters提问) 已知a是实数,函数f(x)=2ax²+2x-3-a,如果函数y=f(x)在区间【-1,1】上有实根,求a的取值范围是实根不是零点! are here some of our trip pictures to Bsijing (连词成句) There were only a few__meters away from here to my school.A.hundreds B.hundred C.thousands D.hundred of 分别求曲线y=4x-x^2在点B(1,3)处的切线方程. 焦点在(-2,0),(2,0)的双曲线的渐近线为Y=正负X 求1.双曲线方程式2.双曲线离心率着急~这个题看的不难呀 It is ____ 500 meters away from my home to my school All of the students are here,Let's ______our class.填啥 jd 114 4为啥 选C 用 2元一次方程组做学校乐队有193人准备参加文艺汇演,现已预备大客车和中巴士共8辆,其中大客车每辆可坐51人,中巴士每辆可坐8人,刚好坐满,学校预备了几辆大客车?几辆中巴车? 解方程(m/x)-(n/x+1)=0 (m<>n)(mn<>0)解方程(m/x)-(n/x+1)=0 (m<>n)(mn<>0) jd p 103 2图中那2个问题 帮看看 2元一次方程组2分之m+3分之n=7,3分之m+4分之n=52分之x+y+3分之x-y=6,4(x+y)-3(x-y)=2x+y=200,10%x+35%y=200×20% 解方程mx^2-(m^2+n^2)x+mn^2=0 (mn≠0) 根号下72 根号320 根号x的7次y的3次(xy大于等于0) 根号25/16 根号16/9根号5/81 根号4b平方/25a平方,a当于0,b大于等于0 化简,并写出过程 2元一次方程组, 5x-9y=2 x-2y=5 3次根号下X-1等于X-1求X得值 要有过程用2元一次方程组 5x+2y=7 16x+9y=12
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘