darabout.pas

来自「The law of the Ohm for pupils. The progr」· PAS 代码 · 共 67 行

unit DarAbout;

interface

uses Windows, SysUtils,Forms, Controls,
  Buttons, RXCtrls, Graphics, Classes, ExtCtrls, StdCtrls;

type
  TAboutBox = class(TForm)
    SecretPanel1: TSecretPanel;
    Image1: TImage;
    Poc: TBitBtn;
    procedure FormShow(Sender: TObject);
    procedure DiskVal(var N:integer);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure PocClick(Sender: TObject);
    procedure SecretPanel1StartPlay(Sender: TObject);
    procedure SecretPanel1StopPlay(Sender: TObject);
 
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox: TAboutBox;
    N: integer;

implementation

{$R *.DFM}

procedure TAboutBox.FormShow(Sender: TObject);
 begin
 SecretPanel1.Active := True;
 Image1.Picture.LoadFromFile
 (ExtractFilePath(Application.EXEName)+ 'I_Am.bmp')
end;
procedure TAboutBox.DiskVal(var N:integer);
begin
 SecretPanel1.Active := False;
end;

procedure TAboutBox.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
 SecretPanel1.Active := False;
end;

procedure TAboutBox.PocClick(Sender: TObject);
begin
close;
end;

procedure TAboutBox.SecretPanel1StartPlay(Sender: TObject);
begin
   Poc.Visible:=false;
end;

procedure TAboutBox.SecretPanel1StopPlay(Sender: TObject);
begin
   Poc.Visible:=True;
end;

end.