unit1.dfm

Delphi编程技巧6

object LesTabs: TLesTabs
  Left = 190
  Top = 133
  Width = 299
  Height = 263
  Caption = 'LesTabs'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object TabControl1: TTabControl
    Left = 0
    Top = 5
    Width = 289
    Height = 228
    MultiLine = True
    TabOrder = 0
    TabPosition = tpBottom
    Tabs.Strings = (
      'Mon Site'
      'Mon Mail'
      'Comment faire des tabs ?'
      'quitter')
    TabIndex = 0
    OnChange = TabChange
    object Panel1: TPanel
      Left = 5
      Top = 6
      Width = 280
      Height = 197
      TabOrder = 0
      object Label1: TLabel
        Left = 31
        Top = 94
        Width = 222
        Height = 29
        Caption = 'www.ProgZed.com'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clMaroon
        Font.Height = -24
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object Panel2: TPanel
      Left = 5
      Top = 6
      Width = 279
      Height = 196
      TabOrder = 1
      Visible = False
      object Label2: TLabel
        Left = 33
        Top = 125
        Width = 211
        Height = 29
        Caption = '[e-mail]'
        Font.Charset = ANSI_CHARSET
        Font.Color = clNavy
        Font.Height = -24
        Font.Name = 'Rockwell'
        Font.Style = [fsBold]
        ParentFont = False
      end
    end
    object Panel3: TPanel
      Left = 5
      Top = 6
      Width = 278
      Height = 197
      TabOrder = 2
      Visible = False
      object Memo1: TMemo
        Left = 2
        Top = 2
        Width = 272
        Height = 193
        Lines.Strings = (
          'Les Tabs par H@lloWin___HiA'
          ''
          ''
          'd'#39'abord mettez un composant TabControl (Win32)  '
          'dans votre Form'
          ''
          'Dans Propri閠閑s/Tabs :'
          #9'chaques ligne entr閑 sera un onglet.'
          ''
          ''
          'On peu connaitre le tab click