Listview and Scrollbox with embeded Editboxes Scroll problem

I will Try This and see if I can acomplish what I am After

Just as ive tried before, the string grid doesnt give me flexibility in many other ways. can anyone solve my question?

Here's a solution for Virtual Treeview, which should be very clean, nice, fast....... :)
I strongly recommend to use Virtual Treeview ALWAYS when you want to use a Treeview.
http://www.soft-gems.net/VirtualTreeview/VT.php

I. Install Virtual Treeview

II. Place it on your form and name it Treeview1

III. Use following settings:
TreeOptions.MiscOptions = [toAcceptOLEDrop, toEditable, toFullRepaintOnResize, toInitOnSave, toToggleOnDblClick, toWheelPanning]
TreeOptions.SelectionOptions = [toExtendedFocus]
TreeOptions.PaintOptions = [toHideFocusRect, toShowButtons, toShowDropmark, toShowHorzGridLines, toShowTreeLines, toShowVertGridLines, toThemeAware, toUseBlendedImages]
Header.Options = [hoColumnResize, hoDrag, hoVisible]

OnCreateEditor = TreeView1CreateEditor
OnEditing = TreeView1Editing
OnFreeNode = TreeView1FreeNode
OnGetText = TreeView1GetText
OnGetNodeDataSize = TreeView1GetNodeDataSize

IV. Edit your Columns (Headers)

V. Place this code...

[...]

type
  PTreeData = ^TTreeData;
  TTreeData = record
    ItemID: Integer;
    ItemName: String;
    ItemDescription: String;
  end;

type
  // Class for the editor
  TStringEditLink = class(TInterfacedObject, IVTEditLink)
  private
    FEdit: TWinControl;        // One of the property editor classes.
    FTree: TVirtualStringTree; // A back reference to the tree calling.
    FNode: PVirtualNode;       // The node being edited.
    FColumn: Integer;          // The column of the node being edited.
  protected
    procedure EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
  public
    destructor Destroy; override;
    function BeginEdit: Boolean; stdcall;
    function CancelEdit: Boolean; stdcall;
    function EndEdit: Boolean; stdcall;
    function GetBounds: TRect; stdcall;
    function PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean; stdcall;
    procedure ProcessMessage(var Message: TMessage); stdcall;
    procedure SetBounds(R: TRect); stdcall;
  end;




[..]

implementation;

// For the editor
destructor TStringEditLink.Destroy;
begin
  FEdit.Free;
  inherited;
end;

procedure TStringEditLink.EditKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var CanAdvance: Boolean;
begin
  case Key of
    VK_UP,
    VK_DOWN:
      begin
        // Consider special cases before finishing edit mode.
        CanAdvance := Shift = [];
        if CanAdvance then
        begin
          // Forward the keypress to the tree. It will asynchronously change the focused node.
          PostMessage(FTree.Handle, WM_KEYDOWN, Key, 0);
          Key := 0;
        end;
      end;
    VK_RETURN:
      PostMessage(FTree.Handle, WM_KEYDOWN, VK_DOWN, 0);
  end;
end;


function TStringEditLink.BeginEdit: Boolean;
begin
  Result := True;
  FEdit.Show;
  FEdit.SetFocus;
end;

function TStringEditLink.CancelEdit: Boolean;
begin
  Result := True;
  FEdit.Hide;
end;

function TStringEditLink.EndEdit: Boolean;
var
  Data: PTreeData;
  Buffer: array[0..1024] of Char;
  S: WideString;
begin
  Result := True;

  Data := FTree.GetNodeData(FNode);
  GetWindowText(FEdit.Handle, Buffer, 1024);
  S := Buffer;

  if (Column = 1) then begin
   if S <> Data.ItemName then
   begin
    // Do whatever you want with the new value... (stored in S)
    Data.ItemName := S;
   end;
  end;

  if (Column = 2) then begin
   if S <> Data.ItemDescription then
   begin
    // Do whatever you want with the new value... (stored in S)
    Data.ItemDescription := S;
   end;
  end;

  FEdit.Hide;
  FTree.SetFocus;
end;

function TStringEditLink.GetBounds: TRect;
begin
  Result := FEdit.BoundsRect;
end;

function TStringEditLink.PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean;
var
  Data: PTreeData;
  s, t: String;
  i: Integer;
begin
  i := 0;
  Result := True;
  FTree := Tree as TVirtualStringTree;
  FNode := Node;
  FColumn := Column;

  FEdit.Free;
  FEdit := nil;
  Data := FTree.GetNodeData(Node);

  FEdit := TEdit.Create(nil);
  with FEdit as TEdit do
  begin
    Visible := False;
    Parent := Tree;
    If (Column = 1) then Text := Data.ItemName;
    If (Column = 2) then Text := Data.ItemDescription;
    OnKeyDown := EditKeyDown;
  end;
end;

procedure TStringEditLink.ProcessMessage(var Message: TMessage);
begin
  FEdit.WindowProc(Message);
end;

procedure TStringEditLink.SetBounds(R: TRect);
var
  Dummy: Integer;

begin
  // Since we don't want to activate grid extensions in the tree (this would influence how the selection is drawn)
  // we have to set the edit's width explicitly to the width of the column.
  FTree.Header.Columns.GetColumnBounds(FColumn, Dummy, R.Right);
  FEdit.BoundsRect := R;
end;

procedure TForm1.TreeView1GetNodeDataSize(Sender: TBaseVirtualTree; var NodeDataSize: Integer);
begin
  NodeDataSize := SizeOf(TTreeData);
end;

procedure TForm1.TreeView1FreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
var
 Data: PTreeData;
begin
 Data:=Treeview.GetNodeData(Node);
 if Assigned(Data) then begin
   Data.ItemID := 0;
   Data.ItemName := '';
   Data.ItemDescription := '';
 end;
end;

procedure TForm1.TreeView1GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: WideString);
var
  Data: PTreeData;
begin
  Data := TreeView.GetNodeData(Node);
  case Column of
    0: CellText := IntToStr(Data.ItemID);
    1: CellText := Data.ItemName;
    2: CellText := Data.ItemDescription;
  end;
end;

procedure TForm1.TreeView1CreateEditor(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
begin
  if (Column = 1) then
   EditLink := TStringEditLink.Create;
  if (Column = 2) then
   EditLink := TStringEditLink.Create;
end;

procedure TForm1.TreeView1Editing(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; var Allowed: Boolean);
begin
  If ((Column = 1) or (Column = 2)) then Allowed := True else Allowed := False;
end;


// Own method to add items
function AddData(AVST: TCustomVirtualStringTree; ANode: PVirtualNode;
  ARecord: TTreeData): PVirtualNode;
var
  Data: PTreeData;
begin
  Result := AVST.AddChild(ANode);
  Data := AVST.GetNodeData(Result);
  Data^.ItemID := ARecord.ItemID;
  Data^.ItemName := ARecord.ItemName;
  Data^.ItemDescription := ARecord.ItemDescription;
end;

//Load Listview
procedure TForm1.Button1Click(Sender: TObject);
var Data: TTreeData;
begin
    ADOMain.SQL.Text := 'Select * From Items Where type = ''Labor''  order by Itemname';
    ADOMain.Open;

    ListView1.Items.Clear;
    ListView1.Items.BeginUpdate;
    while not ADOMain.Eof do begin
      Data.ItemID := ADOMain.FieldByName('ItemID').AsInteger;
      Data.ItemName := ADOMain.FieldByName('ItemName').AsString;
      Data.ItemDescription := ADOMain.FieldByName('ItemDescription').AsString;
      AddData(Treeview1, nil, Data);
      ADOMain.Next;
    end;
    ADOMain.Close;
    ListView1.Items.EndUpdate;
end;

This is not a treeview application. If you read my question it is a quick books style data entry aplication with row select.