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

Delphi控件源码

开发平台:

Delphi

  1. unit SecondF;
  2. interface
  3. uses
  4.   SysUtils, Windows, Messages, Classes,
  5.   Graphics, Controls, Forms, Dialogs, StdCtrls;
  6. type
  7.   TSecondForm = class(TForm)
  8.     CloseButton: TButton;
  9.     procedure CloseButtonClick(Sender: TObject);
  10.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  11.   private
  12.     { Private declarations }
  13.   public
  14.     { Public declarations }
  15.   end;
  16. var
  17.   SecondForm: TSecondForm;
  18. implementation
  19. {$R *.DFM}
  20. uses
  21.   ScreenF;
  22. procedure TSecondForm.CloseButtonClick(Sender: TObject);
  23. begin
  24.   Close;
  25. end;
  26. procedure TSecondForm.FormClose(Sender: TObject;
  27.   var Action: TCloseAction);
  28. begin
  29.   // actually delete the form.
  30.   Action := caFree;
  31. end;
  32. end.