求救!!!‘Cannot assign a TMetafile to a TPicture’
有如下代码,出现标题所示提示,请教原因,如何修改。谢谢。
procedure TfmPreview.FormShow(Sender: TObject);
begin
if (wmfList <> nil) and (wmfList.Count > 0) then
begin
ImgIdx := 0;
imgPreview.Picture.Assign( TMetafile( wmfList.Items[ImgIdx] ));
end;
FormResize(Self);
end;