می دونید که کامپوننت image در حالت عادی نمی تونه فایل های GIF رو نمایش بده برای انجام این کار می تونید از اسکریپت زیر استفاده کنید ، برای اجرای این اسکریپت باید یونیت axctrls را صدا بزنید :
Uses axctrls;
Procedure TForm1.Button1Click(Sender: TObject);
Var
F:TFileStream;
O: TOleGraphic;
Begin
If OpenDialog1.Execute then
Begin
F:=TFileStream.Create(OpenDialog1.FileName,fmOpenRead or fmShareDenyRead);
O:=TOleGraphic.Create;
O.LoadFromStream(F);
Image1.Picture.Assign(O);
O.Free;
f.Free;
End;
End;
دسته بندی :
پیوندها
