help_about.pas

来自「机房管理系统delphi源代码」· PAS 代码 · 共 64 行

unit help_about;

interface

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

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;
    mailto: TLabel;
    Label3: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure draw_timerTimer(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure mailtoClick(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;

procedure Tf_help_about.mailtoClick(Sender: TObject);
begin
  ShellExecute(f_help_about.Handle,nil,PChar(mailto.Hint),nil,nil,SW_SHOWNORMAL);
end;

end.