国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

打開APP
userphoto
未登錄

開通VIP,暢享免費(fèi)電子書等14項(xiàng)超值服

開通VIP
TShockwaveFlash主要屬性、方法和事件

TShockwaveFlash主要屬性如下: 

  ReadyState:讀一個(gè)flash文件時(shí)的狀態(tài);
  TotalFrames:總幀數(shù),只有當(dāng)ReadyState = 4時(shí)才能訪問該屬性;
  FrameNum:當(dāng)前播放的幀;
  Playing:播放或暫停一個(gè)flash;
  Quality:指定當(dāng)前渲染的質(zhì)量,包括0=Low, 1=High、2=AutoLow、3=AutoHigh;
  ScaleMode:縮放模式,0=ShowAll、1= NoBorder、2 = ExactFit;
  AlignMode:對齊模式,Left=1、Right=2、Top=4、Bottom=8;
  BackgroundColor:背景色,-1為默認(rèn)顏色;
  Loop:是否循環(huán);
  Movie:指定播放的flash文件路徑,可以為一個(gè)URL。
  
TShockwaveFlash主要方法如下:
  Play():開始播放動(dòng)畫;
  Stop();停止播放動(dòng)畫;
  Back();播放前一幀動(dòng)畫;
  Forward():播放后一幀動(dòng)畫;
  Rewind():播放第一幀動(dòng)畫;
  SetZoomRect(int left, int top, int right, int bottom):設(shè)置縮放的區(qū)域;
  Zoom(int percent):縮放(按百分比);
  Pan(int x, int y, int mode):縮放播放面板,其中模式0為按像數(shù)、1為按窗口百分比。
  TSetProperty(target:widestring,property_:integer,const value widestring):設(shè)定flash中影 片的屬性;
  TGetProperty(target:widestring,property_:integer):取得flash中影片的屬性;
  GetVariable(const name:widestring):取得flash中動(dòng)態(tài)文本的值;
  SetVariable(const name:widestring,const value:widestring):設(shè)定flash中動(dòng)態(tài)文本的值;

TShockwaveFlash主要事件如下:
  OnProgress(int percent):讀取一個(gè)flash時(shí)觸發(fā);
  OnReadyStateChange(int state):狀態(tài)改變時(shí)觸發(fā)。states的值可以為0=Loading、
                                 1=Uninitialized、2=Loaded、3=Interactive和4=Complete。
  OnFSCommand(const command, args: WideString):可用來讀取flash按鈕中的參數(shù);

三.Delphi與flash的信息通道
   
  1.利用flash控件的Fscommand屬性來讀取flash按鈕中的參數(shù)及參數(shù)的值。
        例:    新建一個(gè)flash文件,在flash主場景中添加四個(gè)按鈕依次在按鈕中添加如下腳本:
           第一個(gè)按鈕:      on (release) {
                          fscommand (”Num1”, ”1”);
                                         }
           第二個(gè)按鈕:      on (release) {
                          fscommand (”Num1”, ”2”);
                                         }
           第三個(gè)按鈕:     on (release)  {
                          fscommand (”Num2”, ”1”);
                                         }
           第四個(gè)按鈕:     on (release) {
                          fscommand (”Num2”, ”2”);
                                        }
               新建一Delphi工程,在Form中添加flash控件,設(shè)置好其movie屬性,雙擊FSCommand事
           件,添入以下代碼:
           

  1. procedure TForm1.ShockwaveFlash1FSCommand(Sender: TObject; const command,args:   
  2.                                                      WideString);  
  3.                       begin  
  4.                        if command=’Num1’ then showmessage(’Num1’);   
  5.                        if ((command=’Num1’) and (args=’1’)) then showmessage(’Num1 1’);  
  6.                        if ((command=’Num1’) and (args=’2’)) then showmessage(’Num1 2’);  
  7.                        if command=’Num2’ then showmessage(’Num1’);  
  8.                        if ((command=’Num2’) and (args=’1’)) then showmessage(’Num2 1’);  
  9.                        if ((command=’Num2’) and (args=’2’)) then showmessage(’Num2 2’);  
  10.                     end;  
 
  2.利用flash控件的Setvariable或Getvariable方法來讀或?qū)慺lash動(dòng)態(tài)文本框中的內(nèi)容。
   
   例: 新建一個(gè)flash文件,在flash主場景中添加一動(dòng)態(tài)文本框,將其variavle設(shè)為Text1.
        新建一Delphi工程,在Form中添加flash控件,設(shè)置好其movie屬性,再添加二個(gè)Button控件,雙
        擊Button1,添入以下代碼:
      
  1. procedure TForm1.Button1Click(Sender: TObject);  
  2.           begin  
  3.              shockwaveflash1.SetVariable(’Text’,’信息已經(jīng)到達(dá)!’);  
  4.           end;  
       

雙擊Button2,添入以下代碼:
      

  1. procedure TForm1.Button2Click(Sender: TObject);  
  2.           begin  
  3.              showmessage(shockwaveflash1.GetVariable(’Text’));  
  4.           end;   
 
  3. 利用flash控件的TSetProperty或TGetProperty方法來讀或?qū)慺lash影片的屬性。
  
     例: 新建一個(gè)flash文件,在flash主場景中添加一影片(MC),將其name設(shè)為MC1.  
      新建一Delphi工程,在Form中添加flash控件,設(shè)置好其movie屬性,再添加二個(gè)Button控件和timer
      控件,button1的caption設(shè)為Start;button2的caption設(shè)為End;代碼如下:
  1. procedure TForm1.Timer1Timer(Sender: TObject);  
  2. var  
  3. i:integer;  
  4. s:string;  
  5. begin  
  6. s:=shockwaveflash1.TGetProperty(’MC1’,6);  
  7. i:=strtoint(s);  
  8. i:=i-10;  
  9. s:=inttostr(i);  
  10. shockwaveflash1.TSetProperty(’MC1’,6,s);  
  11. end;  
  12. procedure TForm1.Button1Click(Sender: TObject);  
  13. begin  
  14. timer1.Interval :=500;  
  15. end;  
  16. procedure TForm1.Button2Click(Sender: TObject);  
  17. begin  
  18. timer1.Interval :=0;  
  19. end;  

 

運(yùn)行后,可以看到影片的透明度越來越小。shockwaveflash1.TGetProperty(’MC1’,6)語句中的6表示影片的透明度屬性,
其他屬性如下:
            0----------->表示影片x坐標(biāo)
            1----------->表示影片y坐標(biāo)
            2----------->表示影片xscale  
            3----------->表示影片yscale
            6----------->表示影片的透明度  
            7----------->表示影片可見性
            8----------->表示影片的寬度  
            9----------->表示影片的高度
            10---------->表示影片旋轉(zhuǎn)  


補(bǔ)充一下:
在新版的flash中控件SWFlash.OCX改為Flash.OCX了

本站僅提供存儲(chǔ)服務(wù),所有內(nèi)容均由用戶發(fā)布,如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容,請點(diǎn)擊舉報(bào)。
打開APP,閱讀全文并永久保存 查看更多類似文章
猜你喜歡
類似文章
Delphi模仿“千千靜聽”滾動(dòng)標(biāo)題欄,非常簡單!
delphi中獲取指定內(nèi)存地址的值
Delphi中異常的截獲及其個(gè)性化處理
在Delphi程序中應(yīng)用IE瀏覽器控件
『Delphi園地』
delphi之如何快速開發(fā)原生ActiveX控件
更多類似文章 >>
生活服務(wù)
分享 收藏 導(dǎo)長圖 關(guān)注 下載文章
綁定賬號(hào)成功
后續(xù)可登錄賬號(hào)暢享VIP特權(quán)!
如果VIP功能使用有故障,
可點(diǎn)擊這里聯(lián)系客服!

聯(lián)系客服