CreateHyperlink.cpp
上传用户:daoqigc
上传日期:2021-04-20
资源大小:2795k
文件大小:1k
源码类别:

RichEdit

开发平台:

Delphi

  1. //---------------------------------------------------------------------------
  2. #include <vclvcl.h>
  3. #pragma hdrstop
  4. //---------------------------------------------------------------------------
  5. USEFORM("Unit1.cpp", Form1);
  6. USERES("CreateHyperlink.res");
  7. USEFORM("Unit2.cpp", Form2);
  8. //---------------------------------------------------------------------------
  9. WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
  10. {
  11. try
  12. {
  13. Application->Initialize();
  14. Application->CreateForm(__classid(TForm1), &Form1);
  15. Application->CreateForm(__classid(TForm2), &Form2);
  16. Application->Run();
  17. }
  18. catch (Exception &exception)
  19. {
  20. Application->ShowException(&exception);
  21. }
  22. return 0;
  23. }
  24. //---------------------------------------------------------------------------