Go homepage(回首页)
Upload pictures (上传图片)
Write articles (发文字帖)

The author:(作者)aaa
published in(发表于) 2014/7/19 0:13:22
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.

赞