uIFormShow.pas 618 B

1234567891011121314151617181920212223242526272829303132333435363738
  1. unit uIFormShow;
  2. interface
  3. type
  4. /// <summary>
  5. /// 标准显示
  6. /// </summary>
  7. IShowAsNormal = interface(IInterface)
  8. ['{4A2274AB-3069-4A57-879F-BA3B3D15097D}']
  9. procedure showAsNormal; stdcall;
  10. end;
  11. /// <summary>
  12. /// 显示成Modal窗体
  13. /// </summary>
  14. IShowAsModal = interface(IInterface)
  15. ['{6A3A6723-8FE7-4698-94BC-5CEDFD4FC750}']
  16. function showAsModal: Integer; stdcall;
  17. end;
  18. /// <summary>
  19. /// 显示成MDI窗体
  20. /// </summary>
  21. IShowAsMDI = interface(IInterface)
  22. ['{F68D4D30-C70C-4BCC-9F83-F50D2D873629}']
  23. procedure showAsMDI; stdcall;
  24. end;
  25. implementation
  26. end.