ShowModal 触摸屏系统

//触摸屏系统 


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;

通过 Wiz 发布