📄 101902_05.htm
字号:
<html>
<head>
<link REL="stylesheet" HREF="/style.css" TYPE="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>计算机世界日报:
用Delphi的THML控件实现触摸屏的使用
</title>
<!--***********-->
</head>
<body bgcolor="#FFFFFF" >
<p><br>
<font color="#b904e8"><b><em><a href="class.htm">返回</a></em></b></font>
<center>
<font color="#0000c0"><h2>
用Delphi的THML控件实现触摸屏的使用
</h2></font>
<h3>
中国工商银行福建省分行洪山支行
<br>龙伟雄
</h3>
</center>
<p><font color="#ffffff">----</font>
使用触摸屏与我们使用鼠标操作程序没什么区别，主要解决的难题一是图文并茂显示，使用户界面更友好，在这方面我们选择了超文本格式；二是对用户操作的控制，避免由于用户的误操作而发生退出程序等异常，因此我们要屏蔽掉一般程序的标题栏、菜单栏及系统的任务栏，功能强大的Delphi使我们可以轻松地达到我们的目的。
<p><font color="#ffffff">----</font>
Delphi的THML控件可以读入超文本格式文件并进行正常显示，功能相当强大，利用它甚至可以开发自己的浏览器。在本例中，我们的触摸屏显示的是一组超文本文件，主机安装为个人WEB服务器，主机名为longwx，用Delphi 4.0实现。
<p><font color="#ffffff">----</font>
1. 首先，创建一个New Application，在Form1上创建一个THTML控件HTML1（在Internet选件板下）。
<p><font color="#ffffff">----</font>
2. 然后设置：
<pre>
Form1属性：BorderStyle:= bsNone;WindowState:= wsMaximized;
HTML1属性：将Height、Width设为与屏幕同尺寸
</pre>
<p><font color="#ffffff">----</font>
3. 接着在Form1的OnActivate事件中执行调用HTML1的RequestDoc( )，如下：
<pre>
procedure TForm1.FormActivate(Sender: TObject);
begin
HTML1.RequestDoc('http://longwx/');
end;
</pre>
<p><font color="#ffffff">----</font>
4. 最后将任务栏属性的‘总在最前’去掉，选择‘自动隐藏’
<p><font color="#ffffff">----</font>
当我们运行时整个屏幕只有一幅页面，然后用户通过点击链接，进入各页面，较好地实现了用户控制。
<p align="right"><small><em>中国计算机世界出版服务公司版权所有</em></small>
<br>
</p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -