Delphi-Quellcode:
var
p : TGifImage;
g : TGifImage;
begin
g := TGifImage.Create;
p := pointer(Msg.LParam);
BuOpenPics.Caption := IntToStr( p.Height);
p.SaveToFile('d:\1.gif');
g.LoadFromFile('d:\1.gif');
case Msg.WParam of
1: ImPic.Picture.Assign(g);
end;
g.Free;
end;
Und das funktioniert auch.
Nur ich kann p nicht direkt assignen