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;




posted @ 2012-06-02 10:09  XE2011  阅读(156)  评论(0)  编辑  收藏  举报