help_about.~pa

来自「计算机房管理系统 一、功能： 1、主要是针对各大高校计算机房的管理。 」· ~PA 代码 · 共 56 行

unit help_about;

interface

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

type
  Tf_help_about = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    draw_timer: TTimer;
    draw_bottom: TPanel;
    bottom_bmp: TImage;
    draw_bottom_1: TPanel;
    draw_image: TImage;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure draw_timerTimer(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  f_help_about: Tf_help_about;

implementation

uses jfos;

{$R *.DFM}

procedure Tf_help_about.draw_timerTimer(Sender: TObject);
begin
  draw_image.top:=draw_image.top-1;
  if draw_image.top<-draw_image.height-20 then
     draw_image.top:=80;
end;

procedure Tf_help_about.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  draw_timer.Enabled:=false;
  f_jfos.enabled:=True;
end;

procedure Tf_help_about.FormShow(Sender: TObject);
begin
  draw_timer.Enabled:=true;
  draw_image.top:=80;
end;

end.