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:

zusammenfalten · markieren

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]

TListView.Create zur Laufzeit

TListView.Create zur Laufzeit

Forumregeln