uIPluginForm.pas 1.7 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293
  1. unit uIPluginForm;
  2. interface
  3. type
  4. /// <summary>
  5. /// 基本窗体插件
  6. /// </summary>
  7. IPluginForm = interface(IInterface)
  8. ['{27DDB6A4-7D2F-4026-AA95-EBB995E573AC}']
  9. /// <summary>
  10. /// MDI方式显示窗体
  11. /// </summary>
  12. procedure showAsMDI; stdcall;
  13. /// <summary>
  14. /// showModal方式显示窗体
  15. /// </summary>
  16. function showAsModal: Integer; stdcall;
  17. /// <summary>
  18. /// 显示窗体
  19. /// </summary>
  20. procedure showAsNormal(); stdcall;
  21. /// <summary>
  22. /// 关闭窗体
  23. /// </summary>
  24. procedure closeForm; stdcall;
  25. /// <summary>
  26. /// 释放窗体
  27. /// </summary>
  28. procedure freeObject; stdcall;
  29. /// <summary>
  30. /// 获取窗体对象
  31. /// </summary>
  32. function getObject:TObject; stdcall;
  33. /// <summary>
  34. /// 获取对象唯一ID, 由窗体创建时随机产生
  35. /// </summary>
  36. function getInstanceID: string; stdcall;
  37. end;
  38. IPluginFormNoPackge = interface(IInterface)
  39. ['{BA792553-23B4-4E92-B6A1-055DF3C87154}']
  40. /// <summary>
  41. /// MDI方式显示窗体
  42. /// </summary>
  43. procedure showAsMDI; stdcall;
  44. /// <summary>
  45. /// showModal方式显示窗体
  46. /// </summary>
  47. function showAsModal: Integer; stdcall;
  48. /// <summary>
  49. /// 显示窗体
  50. /// </summary>
  51. procedure showAsNormal(); stdcall;
  52. /// <summary>
  53. /// 关闭窗体
  54. /// </summary>
  55. procedure closeForm; stdcall;
  56. /// <summary>
  57. /// 释放窗体
  58. /// </summary>
  59. procedure freeObject; stdcall;
  60. /// <summary>
  61. /// 获取窗体对象
  62. /// </summary>
  63. function getObject:TObject; stdcall;
  64. /// <summary>
  65. /// 获取对象唯一ID, 由窗体创建时随机产生
  66. /// </summary>
  67. function getInstanceID: string; stdcall;
  68. end;
  69. implementation
  70. end.