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

用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. 最后将任务栏属性的'总在最前'去掉,选择'自动隐藏'

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

用Visual Basic设计更好的用户界面 用Visual Basic设计三维图形按钮 用VisualBasic制作半透明窗体 运行时改变控件大小的两种方法-VB资料 运行中隐藏/显示窗口标题栏-VB资料 在ListBox适当设定水平滚动条的宽度-VB资料 在VB中利用API实现窗体的平滑显示 在vb中让控件大小和位置随着表单的大小成比例变化的方法 在VB中实现闪动标题栏 在VB中实现位图的透明放置 在VB中使用数据窗体设计器插件 在VB中制作单独程序封面的两种方法 在VB中制作透明按钮 在Visual Basic中如何拖动窗体或控件 在Visual Basic中显示动态运行进度 在菜单中加入图标 -VB资料 在程序中调用关闭Windows对话框-VB资料 在任务栏中显示无边框窗体的图标-VB资料 在系统菜单上添加自定义菜单项 -VB资料 在运行时动态生成多个相同的控件?-VB资料 在最小化状态时提供提示 -VB资料 暂时禁止窗口更新-VB资料 VB怎样得到文本框(TextBox)中的文本行数? 制造出透明的Form -VB资料 VB制作半透明窗体和形状不规则的窗体 VB制作方向按钮 VB制作渐变的窗口背景色 字体闪烁 -VB资料 自动改变控件大小-VB资料 自制IE风格按纽控件-VB资料 VB6.0中通过MSChart控件调用数据库 我也很着急,拜托~~~~~~~~~(关于发布和订阅的简单问题) 在pb中如何自激动窗口,急! 遍了一个简单的servlet,编译时提示:package javax.servlet does not exist! 怎样统计新闻发布系统的新闻点击数 小弟是新手,用GCC编译了一个源文件,生成一个叫a.out的文件,好像是可执行文件,但不知怎样执行,请告知!!! 请问怎样才能用MainFrame类中的函数来控制同一项目中的视(View类)的操作??? 搞个调查:在杭州的程序员年薪有多少K? 请问大虾,Active Dictroy有什么作用,另外到什么地方可以下载? 请问各位仁兄,珠海的2002年程序员考试在哪里报名?谢谢! 如何绕过禁止IP?请指点? 小和尚想开网吧!请问各位高手!网吧应该用什么样的的配置比较好!扩朴方式那总比较好! Question:有没有_获取“视频采集卡”的AV信号 的控件? win98下能安装oracle8i吗? 如何在ASP页面中对XML文档进行询?(问题较多) Insert into TableName values(?,?,?,?,?) 为何写入中文时数据库会是乱码??? 有几个技术问题求助!!!! 有人要去参加Visual studio.net发布会吗 失落中 如何打开被屏蔽的“运行”窗口、注册表编辑器?? 小和尚想开网吧!请问各位高手!网吧应该用什么样的的配置比较好!扩朴方式那总比较好! 哪位能给个简单的dll例子吗?我不知怎样写。 简单问题:谁知道改变屏幕的一块区域的颜色的函数是什末? 有关数字视频监控系统的问题!!! 改错误 打算用PB做个Oracle管理器,请给点意见参考参考 如何在APPLET中读入 HTTP中将其他网页的内容 小女子求教!对您可能非常easy的问题! pb6.5做b/s!求救!送分! 这个问题,我都不好意思问,pb70如何编译成exe文件啊? 集成主板的声、显、网卡的问题。(内详) 怎么连sybase 数据库! 怎样用vb实现ctrl + alt + delete键的功能 求超级兔子魔法设置4.2的注册码,一定高分相送 如何调用数据库中带输入、输出参数的存储过程 ASP页面里用下拉框控制日期显示时,没有31号的月份怎么控制不显示31号呢? 寻EPOC高手。 刚学VC要注意点什么哈 如何将BMP图形转成JPEG后,存入数据呢?请教! 脸红请教! 先装好了linux还能加装windows吗? 请问高手:怎样在interDev6.0中调试ASP?? 高手请教,在线等待 一段代码整体一定的快捷方式 MSHFlexGrid的数据显示问题!(40) 使用ADO时,说interface not supported是怎么回事? 请教! 谁知哪儿有flash控制影片的源文件? 怎样把SQL Server中的数据库导出成*.sql文件? 2000SERVER 奇怪:0x80004005 错误,但是在以前的帖子里没有提到 建议:加入精华区的帖子可以改名。有的帖子内容很好,但标题说得不清楚。这样也方便于分类。 正确描述金属通性的是( )A.具有金属光泽 B.具有良好延展性、易导电导热C.具有高熔点 D.具有强还原性 有的同学认为:摩擦起电创造了电荷,放电现象以又使得电荷消失,你的看法? 年降水量单位 in 1in相当于多少mm? 大学普通物理 静电场环路定律 相关的数学知识 人际交往, 请问摩擦起电产生的都是同种电荷还是异种电荷?还是两者兼存? 求名词解释“结构第一” 沟通里面的名词解释.第三只耳朵现象 为什么摩擦起电后形成异种电荷? 选择结构的名词解释using System;public class switchTest{public static void Main(){int num;Console.WriteLine("请输入一个1-7之间的数字:");string input = Console.ReadLine();num = int.Parse(input);switch (num){case 1:Console.WriteLine 沟通的名词解释 对于你说的摩擦起电结果,两个不同的物质带上了等量异种电荷我有些疑问,希望得到您的帮助.在我的资料书上说:两个完全相同的导体相互接触后,总电荷量平均分配.与你所说的等量有歧义. 身体结构的名词解释什么是身体结构?能不能一句话概括? 人际关系理论 请问公式怎么定义,谁能教我 名词解释社会情绪 横向信息沟通 x(n)是一个序列,k=0,1...n-1数学老师死的早,求教下Wn kn那部分是啥意思? 摩擦起电不是创造了电荷,只是电荷从一个物体__到另一个物体,使正,负电荷__了. 求下列表达式的值20mod19,15mod9,7div8,19div3(4>5)and(79)or(9 做爱什么样的器具比较好一些?不知道到现在世界上有多少性爱器具 文献上看到浓度单位 μM 是指 μmol/ml 那么 mM 给出下列表达式的值设变量说明为:int a=1,b=2,c=3,d;double x=2.0,y=7.7;(1) ++a*b-- (2)d=a++,a*=b+1 文学传播 如图所示,放在水平桌面上的如图所示,放在水平桌面上的薄壁圆柱器重4N,底面积100CM2,弹簧测力计的挂钩如图所示,放在水平桌面上的薄壁圆柱器重4N,底面积100CM2,弹簧测力计的挂钩上的挂的重 下列反应的符合表达式,并注明基本反应类型1碳在空气中燃烧2赛跑发令枪打响后,产生大量白烟3汞在空气中加强热以上反应的共同特征. 传播学 教育性信息的名词解释到底是什么啊! 放在水平桌面上的薄壁圆柱形容器底面积为100cm2,弹簧测力计的挂钩上挂着重为10N放在水平桌面上的薄壁圆柱形容器底面积为100cm2,弹簧测力计的挂钩上挂着重为10N的物体,现将物体浸没在水 1.C语言函数默认的返回值类型是_____.2.下列条件:10 wokakan 放在水平桌面上的薄壁圆柱形容器重4N,底面积100cm2,弹簧测力计的挂钩上挂着重为10N的物体,先将物体浸没于水中,容器内水面由16cm上升到20cm.求(1)物体放入水中时,容器底受到的水的压强(2 密度计算题. 8年级下册的物理(关于密度),1、 如果砖的密度是2×10³千克/米³,一块砖的体积是1.4×10³/厘米³,那么,一辆装载4吨的汽车最多能运多少块砖?2、柏油路面维修的时候,要铺设路面面 matlab如何在圆内随机画点 烟、泪读什么,是什么意思? 超声波探伤题,根据标准GB/T6402-2008探测钢棒超声波探伤题,根据GB/T6402-2008A级标准探测fai80✖️100mm的钢棒,已知钢棒纵波声速为5900m/s,选择探头并计算灵敏度.领导出的题,初学者完全不知 虚假购买力(附例子) 灵敏度的单位:μw 怎么读我很穷,给不了分数,看着回答吧 关于:奶茶饮料中茶多酚的检测——gb/t 21733—2008标准中的奶茶在加无水乙醇定容后再用慢速定量滤纸过滤,但是慢速定量滤纸的过滤完50ml试液的话需要几个小时,茶多酚在空气中会被氧化,请 名词解释 公民不要太长 不透光烟度计的英文 分析性测试名词解释审计学,分析性测试是指(名词解释) 有效的公共关系 在C程序中,表达式200|10的值是多少? Private Sub Worksheet_Change(ByVal Target As Range)Dim ii = Target.RowActiveSheet.Cells(i,15) = Now()End Sub这是EXCEL里一个自动显示数据更改时间的宏程式,另外我就是想能不能帮忙做一下更改,它现在是显示的是横排 公共关系名词解释揭丑运动.全员公关.交际型公关.进攻型公关.媒介公关.公关危机.危机公关.企业使命.公关礼仪.4C'S理论.麻烦知道的人帮我答一下, 为什么降水量的单位是mm?表示的是什么意思? 在一个二值图象上,用matlab画圆.(白色的线来画,只画在图像范围中部分就可以了)以图象的左上角为坐标圆点.圆心为::x =1255y =1133半径为::r =2517希望知道的给个程序.十分感谢.半径,圆心都是以像 名词解释:公关传播急用,谢谢 降水量用mm做单位,怎么看的?是不是指雨滴的直径? matlab怎么画圆给了30组数据 (X,Y)..没半径 怎么通过这些数据画图,还能求出圆的半径的 求大神指导...MATLAB新手啊 2.4g金属Mg变成Mg离子后失去的电子数为0.1NA 请高手一字一字的说明 公共关系中“政府形象”的名词解释 降水量为什么以”mm”为单位?它是如何测量的? Mg金属是什么 LP/mm什么单位 怎么读啊 降水量的单位mm表示的是多大面积上的降水量?大家都知道降水量的单位是mm,但究竟是多大面积上的深度? 马氏体不锈钢,如何调制?调质 摩擦起电现象表明,电荷是什么创造的,也被什么消灭 密度的应用题一个质量为5KG的合金球,其中含铅和铁各占总体积的1/2.1.此合金的密度是多少2.此合金的体积是多少P铁=7900KG/M P铅=11300KG/M
备案号:鲁ICP备13029499号-2 说三道四 www.s3d4.cn 说三道四技术文摘