Ани Курсор играет - PullRequest
Новая
       8

Ани Курсор играет

0 голосов
/ 26 декабря 2011

У меня есть форма "TForm1" с одним "TAnimate1".У меня есть один ресурс AVI в качестве имени файла «Animate 01.avi» с идентификатором ресурса «AVI» и один «Анимированный курсор» в качестве имени файла «Курсор 01.ani» с идентификатором ресурса «8». Я хочу воспроизвести «Animate 01».avi "on" FormCreate "событие и установить курсор по умолчанию как" 8 ".Я использую «Delphi XE2».

Вот код: 

unit KoushikHalder01;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Vcl.Buttons, Vcl.ExtCtrls,
  Vcl.ComCtrls;

type
  TForm01 = class(TForm)
    BitBtn01: TBitBtn;
    BitBtn02: TBitBtn;
    Label01: TLabel;
    Label08: TLabel;
    Timer01: TTimer;
    Timer02: TTimer;
    Animate01: TAnimate;
    procedure Timer01Timer(Sender: TObject);
    procedure Timer02Timer(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure FormShow(Sender: TObject);
    procedure FormHide(Sender: TObject);
    procedure BitBtn01MouseEnter(Sender: TObject);
    procedure BitBtn02MouseEnter(Sender: TObject);
    procedure BitBtn01MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn02MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure BitBtn01MouseLeave(Sender: TObject);
    procedure BitBtn02MouseLeave(Sender: TObject);
    procedure BitBtn02Click(Sender: TObject);
    procedure BitBtn01Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form01: TForm01;

implementation

{$R *.dfm}
{$R KoushikHalder.res}

procedure TForm01.BitBtn01Click(Sender: TObject);
begin
   Timer01.Enabled := true
end;

procedure TForm01.BitBtn01MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BitBtn01.Font.Color :=10379745;
end;

procedure TForm01.BitBtn01MouseEnter(Sender: TObject);
begin
   BitBtn01.Font.Color :=16711825;
end;

procedure TForm01.BitBtn01MouseLeave(Sender: TObject);
begin
   BitBtn01.Font.Color :=15756035;
end;

procedure TForm01.BitBtn02Click(Sender: TObject);
begin
   Timer02.Enabled := true
end;

procedure TForm01.BitBtn02MouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
   BitBtn02.Font.Color :=10379745;
end;

procedure TForm01.BitBtn02MouseEnter(Sender: TObject);
begin
   BitBtn02.Font.Color :=16711825;
end;

procedure TForm01.BitBtn02MouseLeave(Sender: TObject);
begin
   BitBtn02.Font.Color :=15756035;
end;

procedure TForm01.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   Timer02.Enabled := true
end;

procedure TForm01.FormCreate(Sender: TObject);
begin
  Timer01.Enabled := true;
  Screen.Cursors[8] := LoadCursor(HInstance, '8');
  with Animate01 do begin
   Animate01.ResName :='KoushikHalder.avi';
   Animate01.ResHandle:=HInstance;
   Active := true;
  end
end;

procedure TForm01.FormHide(Sender: TObject);
begin
   Timer02.Enabled := true
end;

procedure TForm01.FormShow(Sender: TObject);
begin
   Timer01.Enabled := true
end;

procedure TForm01.Timer01Timer(Sender: TObject);
begin
  if Form01.AlphaBlendValue >= 200 then
  Timer01.Enabled := false
  else
  Form01.AlphaBlendValue := Form01.AlphaBlendValue + 25;
end;

procedure TForm01.Timer02Timer(Sender: TObject);
begin
  if Form01.AlphaBlendValue <= 0 then
   Timer02.Enabled := false
   else
   Form01.AlphaBlendValue := Form01.AlphaBlendValue - 25;
   if Form01.AlphaBlendValue <= 0 then
   close;
end;

end.

Я не могу воспроизвести avi и установить курсор ани на событие FormCreate.

...