welcome.txt

来自「校园GIS系统——介绍校园个部门」· 文本 代码 · 共 15 行

 Application.Initialize;
  Welcomefrm := TWelcomefrm.Create(Application); {创建闪现窗口对象}
  Welcomefrm.Show;
  Welcomefrm.Update;
  Application.Title := 'compusGIS';
  Application.CreateForm(TMainFrm, MainFrm);
  Application.CreateForm(TLayerManaFrm, LayerManaFrm);
  Application.CreateForm(TQueryFrm, QueryFrm);
  Application.CreateForm(TPointSetFrm, PointSetFrm);
  Application.CreateForm(TViewAttrFrm, ViewAttrFrm);
  Application.CreateForm(TLabelFrm, LabelFrm);
  Application.CreateForm(TRendererFrm, RendererFrm);
  Welcomefrm.Hide;
  Welcomefrm.Free;
  Application.Run;