flash form.txt

来自「大量Delphi开发资料」· 文本 代码 · 共 14 行

ftry
    FlashForm:=TFlashForm.Create(Application);
    FlashForm.Show;
    FlashForm.Update;
    Application.Initialize;
    Application.Title := '图书馆管理系统';
    Application.HelpFile := 'E:\My Delphi\自制帮助文件\TESTHELP.HLP';
    Application.CreateForm(TfTsgMain, fTsgMain);
  Application.CreateForm(TdmTsg, dmTsg);
  FlashForm.Close;
  Finally
    FlashForm.Free;
  end;
  Application.Run;