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

时间: 2024-11-05 19:42:42

Delphi XE TabControl使用的相关文章

[转]:Delphi XE中泛型数组的使用范例

Delphi XE中泛型数组的使用范例,下面的范例简单的使用了泛型字符串数组,如用 TArray 代替 array of Word, 还可以使用 TArray 类提供的算法(就是少了点). uses Generics.Collections, Generics.Defaults; {测试 TArray 的 Sort 方法} procedure TForm1.Button1Click(Sender: TObject); var arr: TArray<string>; //同 array of

Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)

Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLStoredProc.TSQLTable.TsqlServerMethod.TSQLMonitor.TSimpleDataSet).但是因为该组件只提供了各种数据库的抽象驱动,没有提供底层的与数据库直接交互的驱动库,因此,要想使用具体某种数据库,还需要搭配提供商驱动.本文以Delphi XE在Window

Delphi XE中类成员的访问权限(新增了strict private和strict protected,还有automated)

Delphi XE中类成员的访问权限共提供了6个关键词来用于限定访问权限:public.private.protected.published.automated strict private . strict protected其各自的含义为: 1. strict private:此区定义的字段或方法只能用于当前的类中.即T1中此区定义的成员只能在T1中使用.2. strict protected:此区定义的成员除能用于当前类中,还可用于当前类的任何子类中. 以上两种成员,同一个类的不同对象间

gzip, deflate delphi xe 2 解码 成功 哈哈

2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 http://bbs.csdn.net/topics/190020986 function CFFunc.Compression.Zlib.DeCompressionStream(const AInStream,   AOutStream: TStream) : Boolean; var   ds : TDeCompressionStream;   buff : array[

Delphi XE Starter Essentials 中文目录

Table of Contents1. Delphi XE Starter IDE 1Delphi and C++Builder ....................................................................... 1 2007版的时候,IDE称为RAD Studio,并包括一个Delphi for .NET个性. 2009版的时候,Delphi for .NET被Delphi Prism for .NET代替,IDE保留了 Delphi

[转载]: delphi中XLSReadWrite控件的使用(2)---delphi XE下安装

一.下载 官方下载网址: http://www.axolot.com/components/download.htm 从这里可以下载到从Delphi5到DelphiXE全部支持的版本. 二.软件安装 下载下来的文件是exe格式,可以直接安装,一路next即可. 按照默认安装,会在: C:\Documents and Settings\All Users\Documents\RAD Studio\8.0  路径下生成XLSRWII4_D2011.bpl,安装时需要使用. C:\Program Fi

delphi XE Berlin ReadProcessMemory WriteProcessMemory

delphi  XE,Berlin [dcc32 Error] Unit9.pas(93): E2033 Types of actual and formal var parameters must be identical function ReadProcessMemory(hProcess: THandle; const lpBaseAddress: Pointer; lpBuffer: Pointer; nSize: SIZE_T; var lpNumberOfBytesRead: SI

Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决

Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLStoredProc.TSQLTable.TsqlServerMethod.TSQLMonitor.TSimpleDataSet).但是因为该组件只提供了各种数据库的抽象驱动,没有提供底层的与数据库直接交互的驱动库,因此,要想使用具体某种数据库,还需要搭配提供商驱动.本文以Delphi XE在Window

Delphi XE程序设计系列 2-开发DataSnap/REST服务器

转载于:http://blog.csdn.net/shuaihj/article/details/6129271 Delphi XE程序设计系列 2-开发DataSnap/REST服务器 分类:            编程语言-Delphi2011-01-11 15:524122人阅读评论(1)收藏举报 delphi服务器restjavascriptfunction 在上次的文章中讨论了如何把传统的Delphi 主从架构应用程序逐渐转换为DataSnap JSON服务器,在本篇文章中让我们正式讨