uzoom.pas

基于DELPHI的图片浏览系统设计与实现

unit Uzoom;

interface

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

type
  Tzoom = class(TForm)
    Image1: TImage;
   procedure FormFadeIn(aForm: TForm; Const ATime: Word);
    procedure FormFadeOut(aForm: TForm; Const ATime: Word);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);  
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  zoom: Tzoom;

implementation

uses MainForm;

{$R *.dfm}

{ Tzoom }

procedure Tzoom.FormFadeIn(aForm: TForm; const ATime: Word);
    procedure RefreshControl(Control: TControl);
  var
    i: Integer;
  begin
    Control.Invalidate;
    if Control is TWinControl then
      for i := 0 to TWinControl(Control).ControlCount - 1 do
        RefreshControl(TWinControl(Control).Controls[i]);
  end;
begin
  AnimateWindow(aForm.Handle, 1000, AW_BLEND);
  RefreshControl(aForm);
  //激活窗口
  SetActiveWindow(aForm.Handle);
end;

procedure Tzoom.FormFadeOut(aForm: TForm; const ATime: Word);
begin
 AnimateWindow(aForm.Handle, ATime, AW_HIDE or AW_BLEND);
end;

procedure Tzoom.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  FormFadeOut(self,1000);
 // Form1.ToolButton26.Click;
 Form1.Shape1.Visible := false;
  Form1.SetFocus;
end;
 
end.