Registriert seit: 2. Aug 2003
Ort: Aschersleben
1.362 Beiträge
Delphi 5 Professional
|
Re: Item in TListView hinzufügen
28. Dez 2003, 18:47
schau bei TListitems und dann add
hier das beispiel aus der hilfe
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
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 := alClient;
ViewStyle := vsReport;
NewColumn := Columns.Add;
NewColumn.Caption := 'Last';
NewColumn := Columns.Add;
NewColumn.Caption := 'First';
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;
verhältnisse die einem nicht passen,
muss man verändern oder verlassen
|
|
Zitat
|