TAnimateActive (C++)

From RAD Studio Code Examples
Jump to: navigation, search


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, which will be created on the fly.


#include <memory>       //For STL auto_ptr class

void __fastcall TForm1::Button1Click(TObject *Sender)
//  TForm *TempForm = new TForm(this); 
// The owner (TempForm) would clean this up
// but you want the form to go away when the proc exits.
  std::auto_ptr<TForm> TempForm(new TForm(this));
  TAnimate *pAnimate = new TAnimate(TempForm.get());   
// The owner (TempForm) will clean this up.
  pAnimate->Parent = TempForm.get();
  pAnimate->CommonAVI = aviFindFile;
  pAnimate->Active = true;
// Simulate a lengthy process. Alter this value
// to accommodate your machine speed.
  for (int i = 0; i < 90000000; i++)