如何在D6中 SHOW GIF圖檔??? |
|
|
|
cocodi
一般會員   發表：21 回覆：65 積分：17 註冊：2002-06-27 發送簡訊給我 |
記得D5中只要uses gifimage 便很容易使用GIF 檔案,並造成動畫效果,但D6中好像有問題,請問如何處理,以下就是 FOR D5的 CODE ,但同樣的到D6中卻有問題,請問有何解決辦法嗎??
//-------------------------------
unit Unit1; interface uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
ExtCtrls,Gifimage; type
TForm1 = class(TForm)
Image1: TImage;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end; var
Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject);
begin
image1.picture.loadfromfile('c:\smile.gif');
end; end.
|
|
領航天使
站長   發表：12216 回覆：4186 積分：4084 註冊：2001-07-25 發送簡訊給我 |
引言: 記得D5中只要uses gifimage 便很容易使用GIF 檔案,並造成動畫效果,但D6中好像有問題,請問如何處理,以下就是 FOR D5的 CODE ,但同樣的到D6中卻有問題,請問有何解決辦法嗎?? //------------------------------- unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,Gifimage; type TForm1 = class(TForm) Image1: TImage; procedure FormActivate(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.DFM} procedure TForm1.FormActivate(Sender: TObject); begin image1.picture.loadfromfile('c:\smile.gif'); end; end.將Delphi 5.0的GifImage.PAs/GifImage.dcu copy至Delphi 6.0就好了 ～～～Delphi K.Top討論區站長～～～
------
～～～Delphi K.Top討論區站長～～～ |
|
umm
一般會員 發表：7 回覆：12 積分：3 註冊：2002-07-19 發送簡訊給我 |
|
|
aip999
初階會員 發表：10 回覆：63 積分：44 註冊：2002-03-29 發送簡訊給我 |
|
|
gavinj123
初階會員 發表：88 回覆：48 積分：27 註冊：2002-10-15 發送簡訊給我 |
|
|
cake2000
一般會員 發表：13 回覆：16 積分：10 註冊：2002-04-14 發送簡訊給我 |
發表時間：2002-07-17 21:02:04
IP:61.170.xxx.xxx 未訂閱
系統時間：2024-04-26 11:29:12
聯絡我們 | Delphi K.Top討論版
| 本站聲明 |
|
1. 本論壇為無營利行為之開放平台，所有文章都是由網友自行張貼，如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權，而損及您的利益，請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨，是藍是綠本站無權干涉，但這裡不是政治性論壇！ |