SecondF.pas
资源名称:delphi.rar [点击查看]
上传用户:fh681027
上传日期:2022-07-23
资源大小:1959k
文件大小:1k
源码类别:
Delphi控件源码
开发平台:
Delphi
- unit SecondF;
- interface
- uses
- SysUtils, Windows, Messages, Classes,
- Graphics, Controls, Forms, Dialogs, StdCtrls;
- type
- TSecondForm = class(TForm)
- CloseButton: TButton;
- procedure CloseButtonClick(Sender: TObject);
- procedure FormClose(Sender: TObject; var Action: TCloseAction);
- private
- { Private declarations }
- public
- { Public declarations }
- end;
- var
- SecondForm: TSecondForm;
- implementation
- {$R *.DFM}
- uses
- ScreenF;
- procedure TSecondForm.CloseButtonClick(Sender: TObject);
- begin
- Close;
- end;
- procedure TSecondForm.FormClose(Sender: TObject;
- var Action: TCloseAction);
- begin
- // actually delete the form.
- Action := caFree;
- end;
- end.