| Class TFormDemo (unit main) |
TForm
| Constructors |
| Functions |
procedure ButtonLoadClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);| 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;