Class TFormDemo (unit main)

Inherits from

TForm

Constructors



Functions

procedure ButtonLoadClick(Sender: TObject);

Include the resource that contains our GIF {$R GIF.

procedure FormClose(Sender: TObject; var Action: TCloseAction);

Display the GIF in the TImage

Properties

Events

Variables

ButtonLoad : TButton;


ImageGIF : TImage;



Constructors


Functions


procedure ButtonLoadClick(Sender: TObject);

Include the resource that contains our GIF {$R GIF.RES


procedure FormClose(Sender: TObject; var Action: TCloseAction);

Display the GIF in the TImage


Properties


Events


Variables


ButtonLoad : TButton;


ImageGIF : TImage;