ufrmAbout.pas 613 B

12345678910111213141516171819202122232425262728293031323334353637383940414243
  1. unit ufrmAbout;
  2. interface
  3. uses
  4. Windows, Messages, SysUtils, Variants, Classes, Graphics,
  5. Controls, Forms, Dialogs, StdCtrls, uIFormShow, mybean.core.intf;
  6. type
  7. TfrmAbout = class(TForm, IShowAsModal, IFreeObject)
  8. Memo1: TMemo;
  9. private
  10. { Private declarations }
  11. public
  12. { Public declarations }
  13. function showAsModal: Integer; stdcall;
  14. procedure FreeObject; stdcall;
  15. end;
  16. var
  17. frmAbout: TfrmAbout;
  18. implementation
  19. {$R *.dfm}
  20. { TfrmAbout }
  21. procedure TfrmAbout.FreeObject;
  22. begin
  23. self.Free;
  24. end;
  25. function TfrmAbout.showAsModal: Integer;
  26. begin
  27. Result :=ShowModal;
  28. end;
  29. end.