flash form.txt

大量Delphi开发资料

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;