TListView.Create zur Laufzeit

[BenjaminHelbig]

Hi DP'ler

ich habe folgendes Problem. Ich habe auf meinem Frame (QueryFrame) links ausgerichtet ein Memo, dann einen Splitter und dann auf align = alclient ein TabControl. Auf diesem TabControl ist ein Button positioniert. Bei klick darauf wird folgender Code ausgeführt:

Delphi-Quellcode:

const
  Names: array[0..5, 0..1] of string = (
    ('Rubble', 'Barney'),
    ('Michael', 'Johnson'),
    ('Bunny', 'Bugs'),
    ('Silver', 'HiHo'),
    ('Simpson', 'Bart'),
    ('Squirrel', 'Rockey')
    );
var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ListView := TListView.Create(Self);
  with ListView do
  begin
    Parent := Self;

    Align := alleft;
    ViewStyle := vsReport;

    NewColumn := Columns.Add;
    NewColumn.Caption := 'Field';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Type';
    NewColumn := Columns.Add;
    NewColumn.Caption := 'Size';

    for I := Low(Names) to High(Names) do
    begin
      ListItem := Items.Add;
      ListItem.Caption := Names[I][0];
      ListItem.SubItems.Add(Names[I][1]);
    end;
  end;
end;

Eigentlich sollte das ListView dann linksausgerichtet auf dem PageControl positioniert sein, ist es aber nicht. Es wird ganz links vom Frame ausgerichtet, dann kommt erst das memo, dann der splitter, dann das pagecontrol. Ich kapier das nicht.
Hoffe einer von Euch hat ne Idee.

Grüßle Ben

[edit=Sharky]Delphi-Tags gesetzt. Mfg, Sharky[/edit]

[SirThornberry]

weil du als parent self angibst. Du musst als Parent das PageControl angeben wenn es auf dem PageControl liegen soll

[BenjaminHelbig]

Ok, sehe ich ein. Habe ich aber auch schon ausprobiert, habe jetzt nochmals Self durch
Form2.MainFrame1.QueryFrame1.TabControl1 ersetzt. Dann zeigt er mir es trotzdem nicht auf dem TabControl sondern gneu da wo vorhin an.
Hab den Source mal als zip angehängt.

GRüßle