confirmdelete.pas

超级播放器 -- 软件特点 -- 功能齐全 操作简便 绿色环保

unit ConfirmDelete;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;

type
  TFrmConfirmDel = class(TForm)
    CheckBox1: TCheckBox;
    Label1: TLabel;
    OkBtn: TBitBtn;
    CancelBtn: TBitBtn;
    Image1: TImage;
    Bevel1: TBevel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
    DeldiskFile:boolean;
  end;

var
  FrmConfirmDel: TFrmConfirmDel;

implementation

{$R *.dfm}

procedure TFrmConfirmDel.FormCreate(Sender: TObject);
begin
  self.Caption :=application.Title;
end;

procedure TFrmConfirmDel.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  DeldiskFile:=checkbox1.Checked ;
end;

end.