Auch wenn ich folgendes schreibe passiert das gleiche...
Delphi-Quellcode:
//Form1 ist schon erstellt worden
//Image1 ist schon erstellt worden und hat die richtige Größe schon
var
Form1: TForm1;
Test: TGIFImage;
implementation
{$R *.dfm}
procedure TForm1.FormActivate(Sender: TObject);
begin
Form1.Height := 231;
Form1.Width := 165;
Test := TGifImage.Create;
Test.Height := 231;
Test.Width := 165;
Test.LoadFromFile('C:\gif\pic001.gif');
Test.Paint(Canvas,Form1.ClientRect,[goDirectDraw]);
Image1.Picture.Graphic := Test;
Test.Free;
end;
