unit1.pas

Delphi高级界面特效制作百例源代码,这是随书源代码部分,不知可否

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure StatusBar1DrawPanel(StatusBar: TStatusBar;
      Panel: TStatusPanel; const Rect: TRect);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Button1Click(Sender: TObject);
  private
    Animate1 : TAnimate;
    //记录要插入动画的坐标范围
    DrawRect : TRect;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.StatusBar1DrawPanel(StatusBar: TStatusBar;
  Panel: TStatusPanel; const Rect: TRect);
begin
    DrawRect := Rect;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
     Animate1 := TAnimate.Create(Form1);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
     Animate1.Free;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
     Animate1.Left := DrawRect.Left+3;
     Animate1.Top := DrawRect.Top+3;
     Animate1.width := DrawRect.right-DrawRect.left;
     Animate1.height := DrawRect.bottom-DrawRect.top;
     Animate1.Parent := StatusBar1;
     Animate1.CommonAVI := aviFindFile;
     Animate1.FileName := 'cool.avi';
     Animate1.Active := True;
     Animate1.Show;
     StatusBar1.Panels.Items[1].width := 71;
     StatusBar1.repaint;
end;

end.