//触摸屏系统
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;