Delphi XE TabControl使用

一、界面

tabcontrol1 GestureManager1 各tab頁添加一些控件

二、屬性設置

tabcontrol1: GestureManage選GestureManager1, Gestures.Standard設置手勢，這里只用了左滑和右滑，

三、代碼：

函數：設置活動頁面及過度效果，看幫助吧，呵呵！

tabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)

 

procedure TForm3.TabControl1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
   case EventInfo.GestureID of
      sgiRight:
      begin
        if TabControl1.ActiveTab=TabItem1 then
           TabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)
        else if TabControl1.ActiveTab=TabItem2 then
           TabControl1.SetActiveTabWithTransition(TabItem3,TTabTransition.None,TTabTransitionDirection.Normal)
        else if TabControl1.ActiveTab=TabItem3 then
           TabControl1.SetActiveTabWithTransition(TabItem4,TTabTransition.None,TTabTransitionDirection.Normal);
        Handled:=true;
      end;

      sgiLeft:
      begin
        if TabControl1.ActiveTab=TabItem2 then
           TabControl1.SetActiveTabWithTransition(TabItem1,TTabTransition.None,TTabTransitionDirection.Normal)
        else if TabControl1.ActiveTab=TabItem3 then
           TabControl1.SetActiveTabWithTransition(TabItem2,TTabTransition.None,TTabTransitionDirection.Normal)
        else if TabControl1.ActiveTab=TabItem4 then
           TabControl1.SetActiveTabWithTransition(TabItem3,TTabTransition.None,TTabTransitionDirection.Normal);
        Handled:=true;
      end;

   end;
end;

剛開始接觸Delphi,學習書籍較少且講解不細致，網上看了很多資料才有點心得，希與同道們相互學習。

QQ：498822722