TAnimate.Create Constructor

Creates and initializes an animation control.

Pascal

constructor Create(AOwner: TComponent); override;

C++

virtual __fastcall TAnimate(TComponent * AOwner);

Description

Call Create to instantiate an animation control at runtime. Animation controls placed on forms at design time are created automatically.

AOwner is the component that is responsible for freeing the TAnimate instance. It becomes the value of the Owner property.

C++ Examples:

Copy Code

/*
To run this example, create a new project, place a button on
the form, and insert the example code to the button click
event. Place the button on the bottom of the form to leave
room for the TAnimate component that will be created on the
fly.
*/
void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TForm *TempForm = new TForm(this);
  TAnimate *pAnimate = new TAnimate(TempForm);
  pAnimate->Parent = TempForm;
  pAnimate->CommonAVI = aviFindFile;
  pAnimate->Active = true;
  TempForm->Show();
  // Simulate a lengthy process.  Alter this value
  // to accommodate your machine speed.
  for (int i = 0; i < 90000000; i++)
    Application->ProcessMessages();
  delete TempForm;
}

Delphi Examples:

Copy Code

{
To run this example, create a new project, place a button on
the form, and insert the example code to the button click
event. Place the button on the bottom of the form to leave
room for the TAnimate component that will be created on the
fly.
}
procedure TForm1.Button1Click(Sender: TObject);
var
  TempForm: TForm;
  I: Integer;
begin
  TempForm := TForm.Create(Self);
  with TAnimate.Create(TempForm) do
  try
    Parent := TempForm;
    CommonAVI := aviFindFile;
    Active := True;
    TempForm.Show;
    // Simulate a lengthy process.  Alter this value
    // to accommodate your machine speed.
    for I := 0 to 90000000 do Application.ProcessMessages;
  finally
    TempForm.Release;
  end;
end;