发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: BorlandDev
标  题: 用delphi的THML控件实现触摸屏的使用
发信站: 哈工大紫丁香 (2001年03月13日18:39:01 星期二), 转信

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

---- 当我们运行时整个屏幕只有一幅页面，然后用户通过点击链接，进入各页面
，较好地实现了用户控制。 
   
 
  如果你有什么好的资料，可以寄给我哟:) <<回到首页 <<上一篇 下一篇>> 



------------------------------------------------------------------------
--------
  Delphi 技巧集 
   
  Copyright 1999.11 by 东子 Mail to me! 
感谢广州视窗提供主页空间 


--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]