在屏幕上增加一层感应层以获取模拟鼠标的点击，简单的说就是手指点代替鼠标的点击。
现在多数触摸屏是用webbrowser1＋asp写的。界面很漂亮的！步骤如下。
三个步骤，
在程序中加入［internet］->[webbrowser1]
一、FormActivate中设webbrowser1满屏
procedure TForm1.FormActivate(Sender: TObject);
begin
webbrowser1.Navigate(extractfilepath(application.exename)+'index.htm');
top:=0;
left:=0;
width:=1024;
self.Height:=768;
webbrowser1.Top:=0;
webbrowser1.Width:=1024;
webbrowser1.Left:=0;
webbrowser1.Height:=768;
end;
二、将windowxp状态栏等隐藏。
procedure TForm1.FormCreate(Sender: TObject);
var
wndhandle:thandle;
wndclass:array[0..50] of char;
begin
strpcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,sw_hide);
end;
三、关闭程序时，将windowxp状态栏等恢复。
procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
var
wndhandle:thandle;
wndclass:array[0..50] of char;
begin
strpcopy(@wndclass[0],'shell_traywnd');
wndhandle:=findwindow(@wndclass[0],nil);
showwindow(wndhandle,sw_show);
end;
如果全部用Ｄelphi写，只有一个要注意的：操作全是单击事件。onclick.
一、将windowxp状态栏等隐藏。
二、关闭程序时，将windowxp状态栏等恢复。
给分！结帖给分！
偶是奖金猎人，对给分很看重的，回答注重质量，
如果不给分，上了我的黑名单，下次就不帮你了。
