VST einzelne Zellen editieren

[Piro]

Moin zusammen,

ich habe ein VST, welches 5 Zeilen und 6 Spalten hat. Ich möchte gerne das man in die irgendeine Zelle klicken und diese dann editieren kann.

Welche Option muss ich noch setzen bzw. wieder deaktivieren? Ich finde es einfach nicht.

Hier die Eigenschaften meines VST.

Delphi-Quellcode:

object vst_contact_contacts: TVirtualStringTree
      Left = 0
      Top = 0
      Width = 709
      Height = 161
      Cursor = crHandPoint
      Align = alClient
      BevelInner = bvNone
      BevelOuter = bvNone
      BorderStyle = bsNone
      ButtonFillMode = fmWindowColor
      CheckImageKind = ckXP
      Color = clWhite
      Colors.FocusedSelectionColor = clBlack
      Ctl3D = False
      DefaultNodeHeight = 25
      DrawSelectionMode = smBlendedRectangle
      Header.AutoSizeIndex = -1
      Header.Background = clWhite
      Header.Font.Charset = DEFAULT_CHARSET
      Header.Font.Color = clWindowText
      Header.Font.Height = -11
      Header.Font.Name = 'Tahoma'
      Header.Font.Style = [fsBold]
      Header.Height = 20
      Header.MainColumn = 1
      Header.Options = [hoColumnResize, hoDrag, hoOwnerDraw, hoShowImages, hoShowSortGlyphs, hoVisible]
      Header.Style = hsXPStyle
      Indent = 0
      LineStyle = lsSolid
      ParentCtl3D = False
      ParentShowHint = False
      RootNodeCount = 5
      ScrollBarOptions.ScrollBarStyle = sbmFlat
      ShowHint = True
      TabOrder = 0
      TreeOptions.AutoOptions = [toAutoDropExpand, toAutoScroll, toAutoScrollOnExpand, toAutoSort, toAutoTristateTracking, toAutoDeleteMovedNodes, toDisableAutoscrollOnFocus]
      TreeOptions.MiscOptions = [toEditable, toFullRepaintOnResize, toVariableNodeHeight]
      TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowHorzGridLines, toShowVertGridLines, toThemeAware, toUseBlendedImages, toUseBlendedSelection]
      ExplicitHeight = 171
      Columns = <
        item
          Position = 0
          Width = 120
          WideText = 'Name'
        end
        item
          Position = 1
          Width = 90
          WideText = 'Department'
        end
        item
          Position = 2
          Width = 120
          WideText = 'Phone'
        end
        item
          Position = 3
          Width = 120
          WideText = 'Mobile'
        end
        item
          Position = 4
          Width = 120
          WideText = 'Fax'
        end
        item
          Position = 5
          Width = 200
          WideText = 'Email'
        end>
      WideDefaultText = ''
    end

Vielen Dank im Voraus.

Sven