Scroll problem beim hinzufügen von komponenten in einer LV

[mimi]

gelöst mit folgeden code:

Delphi-Quellcode:

procedure TForm1.ListView1DrawItem(Sender: TCustomListView; Item: TListItem;
  Rect: TRect; State: TOwnerDrawState);
begin
  sender.Canvas.TextOut(rect.Left,rect.Top,item.Caption);

  TComboBox(item.Data).Left:=rect.Left + Listview1.columns[0].Width;
  TComboBox(item.Data).Top:=rect.top;
  TEdit(item.SubItems.Objects[0]).Left:=rect.Left + Listview1.columns[0].Width+ Listview1.columns[1].Width;
  TEdit(item.SubItems.Objects[0]).Top:=rect.top;
end;