uIFormShow.pas 788 B

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