delphi XE5下 andriod 廣告圖片的demo


          

試了一下,關於好幾個廣告界面,左右滾動的效果:用TabControl 加上定時器實現即可。

 

1、TTabControl外觀

 

TTabControl的外觀由屬性TabPosition控制,可選項包括:

tpTop         選項tab在控件上方

tpBottom   選項tab在控件下方

tpNone      以原點形式顯示選項tab,在控件下方,如下圖:

image

tpDots        以方格形式顯示選項tab,在控件下方,如下圖:

image

 以下是源代碼:

//每五秒滾動一次 

Procedure TForm1.FormActivate(Sender: TObject);

Begin

    Timer1.Interval := 5000;

End;

 

//自動滾動; 

Procedure TForm1.Timer1Timer(Sender: TObject);

Begin

    If TabControl1.ActiveTab <> TabControl1.Tabs[TabControl1.TabCount-1] Then

          TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex+1]

      Else

          TabControl1.ActiveTab := TabControl1.Tabs[0];

End;

 

//手勢編程,也可以不需要; 

Procedure TForm1.TabControl1Gesture(Sender: TObject; const EventInfo: TGestureEventInfo; var Handled: Boolean);

Begin

  Case EventInfo.GestureID Of       //識別事件的手勢

    sgiLeft:                        //由右向左滑動手指

    Begin

//如果不是最后一個tab,則選擇下一個tab;如果是,則選擇第一個。

      If TabControl1.ActiveTab <> TabControl1.Tabs[TabControl1.TabCount-1] Then

          TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex+1]

      Else

          TabControl1.ActiveTab := TabControl1.Tabs[0];

      Handled := True;             //已完成代碼處理

    End;

 

    sgiRight://由左向右滑動手指

    Begin

 

 //如果不是第一個tab,則選取前一個tab;如果是,則選擇最后一個。

      If TabControl1.ActiveTab <> TabControl1.Tabs[0] Then

          TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabIndex-1]

      Else

          TabControl1.ActiveTab := TabControl1.Tabs[TabControl1.TabCount-1];

      Handled := True;//已代碼處理

    End;

  End;

End;


 


注意!

本站转载的文章为个人学习借鉴使用,本站对版权不负任何法律责任。如果侵犯了您的隐私权益,请联系我们删除。



 
粤ICP备14056181号  © 2014-2021 ITdaan.com