Delphi触摸屏系统
Delphi触摸屏系统
实例说明
随着旅游产业的快速发展，旅游业已成为各地拉动经济发展的重要部分。各旅游城市也不失时机地推出各种宣传手段包装自己，宣传自己。多媒体宣传光盘不但可以宣传旅游城市的秀丽风光，更能提供平面媒介无法提供的查询和检索功能，是一种非常好的宣传服务手段。每年一些发达旅游城市都会推出自己的宣传光盘。下面通过实例介绍一下触摸屏系统的制作过程。本例运行效果如图1.25所示。
技术要点
在该实例中用到了SetWindowLong（）函数，其函数的原型为：
LONG SetWindowLong（HWND hWnd,int nIndex,LONG dwNewLong);
参数说明如表1.12所示。
功能：从指定窗口的结构中取得消息。
表1.12 参数说明
实现过程
1.新建一个标准工程，创建两个窗体，默认窗体的Name属性分别为Form1、Form2。
2.在窗体中放置TImage、TLabel和TPanel组件。
3.相关组件的主要属性如表1.13所示。
表1.13 主要组件的属性设置
4.主要程序的代码如下：
procedure TForm1.Label1Click(Sender: TObject);
begin
Form1.Visible := false;
Application.CreateForm(TForm2, Form2);
Form2.ShowModal;
Form2.Free;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
setwindowlong(handle,GWL_style,Getwindowlong(handle,GWL_style) and (not WS_caption));
end;
procedure TForm1.Label2Click(Sender: TObject);
begin
close;
end;
procedure TForm1.Label3Click(Sender: TObject);
begin
form1.Visible := false;
application.CreateForm(TForm3, Form3);
Form3.ShowModal;
Form3.Free;
end;
end.
