uIUIForm.pas 497 B

12345678910111213141516171819202122232425262728293031
  1. unit uIUIForm;
  2. interface
  3. type
  4. /// <summary>
  5. /// 窗体插件
  6. /// </summary>
  7. IUIForm = interface(IInterface)
  8. ['{7E250C3C-331E-4732-AD05-F08CA1CA486A}']
  9. procedure showAsMDI; stdcall;
  10. function showAsModal: Integer; stdcall;
  11. //关闭
  12. procedure UIFormClose; stdcall;
  13. //释放窗体
  14. procedure UIFormFree; stdcall;
  15. //获取窗体对象
  16. function getObject:TObject; stdcall;
  17. //获取实例ID
  18. function getInstanceID: Integer; stdcall;
  19. end;
  20. implementation
  21. end.