MWForm2.pas
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:

Delphi控件源码

开发平台:

Delphi

  1. unit MWForm2;
  2. interface
  3. uses
  4.   Qt, SysUtils, Classes, QGraphics, QControls, QForms, QDialogs;
  5. type
  6.   TForm2 = class(TForm)
  7.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  8.   private
  9.     { Private declarations }
  10.   public
  11.     { Public declarations }
  12.   end;
  13. var
  14.   Form2: TForm2;
  15. implementation
  16. {$R *.xfm}
  17. procedure TForm2.FormClose(Sender: TObject; var Action: TCloseAction);
  18. begin
  19.   Action := caFree;
  20.   // important: set pointer to nil!
  21.   Form2 := nil;
  22. end;
  23. end.