mypic.pas

domain3.2 SQL注入漏洞扫描 旁注 上传功能 数据库浏览

unit MyPic;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, jpeg, Gauges;

type
  TMyPicForm = class(TForm)
    Gauge1: TGauge;
    Image2: TImage;
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Image2DblClick(Sender: TObject);
    procedure FormShow(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  MyPicForm: TMyPicForm;

implementation

{$R *.dfm}

{  快捷键: 登陆后按ALT + MING  }

procedure TMyPicForm.FormCreate(Sender: TObject);
begin
  MyPicForm.FormStyle := fsStayOnTop;
  MyPicForm.AlphaBlend := True;
  MyPicForm.AlphaBlendValue := 0;
end;

procedure TMyPicForm.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
 Timer1.Enabled := False;
  for i := 1 to 100 do
  begin
    Gauge1.Progress := i;
    if i <= 50 then
      MyPicForm.AlphaBlendValue := i * 5
    else
      MyPicForm.AlphaBlendValue := MyPicForm.AlphaBlendValue - 5;
    application.ProcessMessages;
    if i = 50 then sleep(100);
    sleep(30);
  end;
  close;
end;

procedure TMyPicForm.Image2DblClick(Sender: TObject);
begin
  Close;
end;

procedure TMyPicForm.FormShow(Sender: TObject);
begin
  Timer1.Enabled := True;
end;

end.