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

用Delphi的THML控件实现触摸屏的使用

HTML文档下载 WORD文档下载 PDF文档下载
用Delphi的THML控件实现触摸屏的使用

--- 使用触摸屏与我们使用鼠标操作程序没什么区别,主要解决的难题一是图文并茂显示,使用户界面更友好,在这方面我们选择了超文本格式;二是对用户操作的控制,避免由于用户的误操作而发生退出程序等异常,因此我们要屏蔽掉一般程序的标题栏、菜单栏及系统的任务栏,功能强大的Delphi使我们可以轻松地达到我们的目的。

---- Delphi的THML控件可以读入超文本格式文件并进行正常显示,功能相当强大,利用它甚至可以开发自己的浏览器。在本例中,我们的触摸屏显示的是一组超文本文件,主机安装为个人WEB服务器,主机名为longwx,用Delphi 4.0实现。

---- 1. 首先,创建一个New Application,在Form1上创建一个THTML控件HTML1(在Internet选件板下)。

---- 2. 然后设置:

Form1属性:BorderStyle:= bsNone;WindowState:= wsMaximized;

HTML1属性:将Height、Width设为与屏幕同尺寸

---- 3. 接着在Form1的OnActivate事件中执行调用HTML1的RequestDoc( ),如下:

procedure TForm1.FormActivate(Sender: TObject);

begin

HTML1.RequestDoc('http://longwx/');

end;

---- 4. 最后将任务栏属性的'总在最前'去掉,选择'自动隐藏'

---- 当我们运行时整个屏幕只有一幅页面,然后用户通过点击链接,进入各页面,较好地实现了用户控制。

访Teradata Aster Mayank Bawa:抛弃无效数据,让分析走向大众化 谷歌Chrome或新增通知中心 与Google Now整合 传言称HBO节目将登陆苹果Apple TV? Crashlytics被收购,应用崩溃报告服务要火了? 微软公布WP7.8完整功能 诺基亚率先升级 BlackBerry 10或许不仅仅是一剂强心针 一周消息树:专访蒋彪:JavaEE是企业级开发首选 移动周报:从封闭到开放,iOS生态系统要变天? 游戏平台上:Win7已跌破70% Ubuntu突破1% 不再那么传奇 扎克伯格时代或结束 微软应该联手Firefox OS,打造破坏性生态系统 中美IT人才俱乐部第一期:硅谷经验面面观 中国第四季度Android和iOS智能手机出货量高达98% 开发者眼中的代码审查“真相” 互联网产品设计的12个理念 Pair、Between、小恩爱:妹纸装个情侣应用吧? 横跨四大操作系统:3DMark将挑战所有智能设备 美国碰壁欧洲得意 华为获CERN青睐 应用数据分析新标准:Flurry增应用崩溃分析功能 Twitter被黑客入侵,25万用户信息可能被窃 16亿美元超级计算机项目助力解读人脑 卡巴斯基发现新型Android恶意软件 可入侵Windows 谷歌发布基于B-Tree的C++模板库 开源产品系列:高性能Web框架Zend Framework LiFi是否会取代WiFi? 1月浏览器排行:IE10突破1% Chrome连续3月下滑 Wine让Android也能运行Windows软件 Cory Ondrejka,是这位工程师拯救了Facebook! 三星争夺企业市场的三大痛点与对策 Xcode更新至4.6 支持iOS 6.1 工程师揭秘:NVIDIA如何锻造Android掌机 为何在BCB中用TDBimage 存取Mysql数据库的图象时出错:invalid blob size ? 如何实现全自动拔号(无用户交互) 请看这个sql语句,怎么错了? 请问,如何设置 键盘开机呀? 关于光驱 如何获取delphi中dbgrid的单元格的内容 问题征解,关于一个智力题的程序解法。 sos!!求救!!!java运行时环境设置的初级问题!各位大侠帮忙了!!!! :-(( 關于delphi6的ActionMainMenuBar组件和ActionToolBar组件 的菜鳥級問題?? 李维的电子商务篇的第二章的例子没法运行,这是为何? 谁能告诉我学VC的步骤和教材啊,还会加分啊 如何将一个可以滚动的窗口的全部内容转换为BMP保存起来(如:IE)?(提供线索就有分)欢迎参与成果供享!!! 请教关于VsPrint Oracle8i Enterprise Manager Release 2.1 相当于ORACLE8.1.几啊? 使用ListView如何操作数据 ★★★简单问题送100分★★★:如何打印框架容器里的的全部内容,包括mschart图表,label,combox等? 我的DW里加入FLASH特效时为什么中文会变成乱码?我给分的............ 我感到天昏地暗、日月无光、前途渺茫、无心睡眠、精神恍惚、双目痴呆相恋8年准备结婚的女友突然和别人结婚了!我受不了了!我快疯了! 请教有关IE5带的ActiveX控件Dhtmled.ocx的98下安装问题 程序员与高级程序员到底那个好过 关于 delphi的一点东东 access一个日期时间字段是短格式的,用什么SQL语句改成长格式的? 怎样才能在主页中显示自己的qq是否在线?????? 有没有平面按钮控件 Interdev6.0 IDE 环境下无法使用MSDN access一个日期时间字段是短格式的,用什么SQL语句改成长格式的?? 大家来帮帮我想想?应该怎么样来删除呢!!!! 各位用VB.net的兄弟,请问你们使得是 Beta1 还是 Beta2 ? 迷周星弛的请来签名啊! 如何操纵RichTextEdit控件??? 我得到GIF图像的这一点的值,怎样得到它的正确的RGB值? 我想请问在CHTML(compact html)中如何对页面进行刷新。 各位老大,你们是如何找到工作的? 在VB.net中,如何实现VB6中的 set A=createobject("XXXX.XXXX") 诸位大虾救命,如何在EDIT控件中判断DBCS字符 !!求救!!对时!!! 在VC中使用Crystal report 8的问题 如何编写c程序自动对GIF图片设置大小 请教:鼠标在windows桌面上按键是否会引发某个事件? 查看DLL的输出函数 menu的问题 web的组件由什么来编写? 嵌入式数据窗口,怎样可以动态往里插数据窗口??? 在DELPHI中如何调用NETBIOS的API函数 AddNew 怎么用?- 怎么办那,啊? 问题标题前的绿色的对号是什么意思?是不是表示问题已经解决? 怎么学VC啊,菜鸟的菜菜的问题啊。 关于打印比较 提取汉字的拼音 四级挂了,给分,气死了 当x*二分之一=y*五分之二时;y=( ) 求函数f(x)=3x^2-5x+2.x属于[0,2]的值域? 5除=5分之1解方程 4.2X除1.6—14=0.175解方程 (-五分之二x的2次方)的2次方·5y的2次方-(-二分之一x的2次方y)的2次方 函数y=(x^2-4x-5)/(x^2-3x-4)的值域是?.. 解方程4^x-2^(x+2)-12=0 二分之一X÷三分之二=五分之二求x是多少 +求函数y=(5x-1)/(4x+2)x属于【-3,-1】的值域. 5/1X-4/1X=40 怎么解(方程) x除以十二分之五,等于五分之三,x等于多少 求函数y=(x^2-4x+5)/(x^2-3x-4)的值域 x-5分之1x=40 解方程 已知x/x²-3x+1=2求x²/x的4次方+x²+1的值 3x的平方减5x减2分之1减3的差加2x方的和 35x-12=51 x+2.1x=1.55 3/4x+1/2x=75 4.2x除以2=12.6应用1、强强和年年同时从学校出发,沿同一条路去2000米外的少年宫,强强骑车每分钟行210米,年年走着去每分钟60米.多少分钟后两人相距1200米2、(这个不 3x平方+2x-2=3 已知X²-3X+1=0,求X的四次方+X的-4次方得值,X≠0 求函数y=3x+1/x-2的值域 2X平方+6X-1=3 X平方+3X-2=? 若x²-3x+1=0,则x²/x四次方+x²+1的值为___ 求函数Y=3x/(3x+1)的值域. 一个整式A减去-3x+2,再加x的二次方-x-7后得5x的二次方-2x-5,求这个整式A x+x分之一=2 求分式x的4次方—x的2次方+1分之3x的2次方的值 1.求函数 y=(1/3)^(-x^2+5x)的值域 2.函数y=(2/5)^(根号下7-3x+21.求函数 y=(1/3)^(-x^2+5x)的值域2.函数y=(2/5)^(根号下7-3x+2x方) 一个整式A减去—3x 2,再加x的平方—X—7后得到5x的平方—2x—5,求这个整式A. 使分式3x+6/x平方-4的值为整数的整数x的值有几个? 求函数的值域y=3x+2/x-1 2x的平方+5x+2 2x的平方-5x-3 2x的平方-3x-20 2x的平方+5x-7 要使分式3x+4/x-1的值为整数的正整数x= 已知函数f(x)=lg(2+x)+lg(2-x) 1.函数g(x)=[10^f(x)]+3x,求函数g(x)的值域.2.若不等式f(x)>m有解.求实数m的取值范围 280÷4X=14解方程, x为整数,且分式3x-1/x+3的值也为整数,求满足要求的所有x的和 若x 15分之4x(2分之1加O.8除以7分之8)等于几 若x的平方+3x+1=0,试求分式x的平方+1/x的平方 函数f(x)=(3x-1)/(3x+1)的值域最说出怎么算的注:是3的x次方 f(x)=(3^x-1)/(3^x+1) 二楼的SNOWHORSE70121,u为什么不等于1? (3x-1)除以3=1-(4x-1)除以6 如果x为整数,且分式(x的平方-1)分之(2x+2)的值为正整数,那么x的值为 6X的平方减5X等于2,用工式方法解 1除以3x-6=3除以4x-8 已知X为整数,且分式2X+2X\X的平方-1的值 解方程3分之2X-4分之1X=8分之5 20(X+5)=200 5y+1/6=9y+1/8-1-y/3 使分式(x+1)的3次方分之2X的平方-4X+2的值为整数的X的整数值有哪些 解方程:【x-20-12】乘4分之1=【x+12】乘16分之3 解下列一元一次方程;(5y)/6=(9y+1)/8×24-(1-y)×24 当x不等于零时,函数 y=3x+1/2x 的值域是 A.[-√6,√6]B.(-∞,-√6]∪(√6,+∞)C.(-∞,-√6]∪[√6,+∞) 解方程12分之x-20分之2x-1=3分之x+4-1时方程两边都乘 如果x等于5y(x、y均不等于0)那么x和y成什么比例,x:y等于什么比什么 1)y=x^2+3x-4:x^2+x+2 (2)y=x^2-5x+4:x^2-2x-8,x大于等于2小于等于3.求值域, 解方程x^3-13x-12=0 9y等于5y+120这个方程是多少 y=-x+1/2x-3(-2 15(x-12)-13x=1020 (5Y+1)/6=(9Y+1)/8-(1-Y)/3 (1)y=x^2+3x-4:x^2+x+2 (2)y=x^2-5x+4:x^2-2x-8,x大于等于2小于等于3.求值域 解方程:x-16分之3x=27.2 {11x-9y=12,-4x+3y=-5y,解方程 函数f(x)=3x的平方-5x+2.x∈[0,2]的值域是可以不用配方法求吗 有别的方法求出来吗? 解方程:2分之1:3分之1=4分之1:x . 3:x=9:27 . 6:25分之9=5分之4:x .x:12=4.2:3.5.有4题,要过程.
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn