ListView редактирование второй колонки

[LomoCoder]

Здравствуйте! Собственно проблема вот какая, делаю я инспектор объектов и для его свойств использую TListView, для редактирования второго столбика делаю следующее:

procedure TForm5.FormCreate(Sender: TObject);
begin
  ListEdit := TEdit.Create(List);
  ListEdit.Parent := List;
  ListEdit.Visible := false;
  ListEdit.Height := Canvas.TextHeight('Wg');
  ListEdit.OnExit := OnExit;
  EditedItem := nil;
end;

procedure TForm5.ListClick(Sender: TObject);
var
  pt:TPoint;
  rc:TRect;
begin
  GetCursorPos(pt);
  pt := List.ScreenToClient(pt);
  EditedItem := List.GetItemAt(10,pt.y);

  if (EditedItem <> nil) then begin
     if(MouseClickOnSubItem(rc,EditedItem,pt.x,pt.y)) then begin
       ListEdit.Left := rc.Left;
       ListEdit.Top := rc.Top;
       ListEdit.Width := rc.Right - rc.Left;
       ListEdit.Height := rc.Bottom - rc.Top + 4;

       ListEdit.Text := EditedItem.SubItems.Strings[0];

       if( not ListEdit.Visible) then begin
          ListEdit.Visible := true;
          ListEdit.SetFocus();
       end else
          ListEdit.Visible := false;
     end;
  end;

end;

function TForm5.MouseClickOnSubItem(rc: TRect; item: TListItem; x,y: integer): boolean;
begin
  if not assigned(item) then
     Exit(False);

  rc := Item.DisplayRect(drBounds);
  rc.Left := List.Columns.Items[0].Width + 2;
  rc.Right := rc.Left + List.Columns.Items[1].Width - 2;
  Exit((X>= rc.Left )or (X <= rc.Right) or (Y>=rc.Top ) or (Y <= rc.Bottom));
end;

procedure TForm5.OnExit(Sender: TObject);
begin
  if(EditedItem <> nil) then
    EditedItem.SubItems.Strings[0] := ListEdit.Text;
  ListEdit.Hide();
end;

Все редактируется замечательно, но не видно в поле во время редактирования что пишется, измененный текст будет виден только после того как закончишь редактировать. Подскажите пожалуйста как сделать компонент ListEdit видимым?

[Stilet]

Ну например ListEdit.BringToFront() попробуй.

[LomoCoder]

Неа не показывает

[Человек_Борща]

Вместо ListView используй VirtualStringTree. Событие от OnCreateEditor позволяет на основе интерфейса IEditorLink создать любой компонент редактирования в любой колонке.

[LomoCoder]

Ухты, крутяк, спасибо!