List View

وعليكم السلام

هذا مثال

procedure TForm1.FormCreate(Sender: TObject);
var
  I: Integer;
  NewColumn: TListColumn;
  ListItem: TListItem;
  ListView: TListView;
begin
  ClientDataSet1.FileName:= 'C:\Program Files\Common Files\Borland Shared\Data\country.cds';
  ClientDataSet1.Open;
  ClientDataSet1.First;

  ListView := TListView.Create(Self);
  with ListView do
  begin
	Parent := Self;
	Align := alClient;

	ViewStyle := vsReport;

	NewColumn := Columns.Add;
	NewColumn.Caption := 'Name';
	NewColumn := Columns.Add;
	NewColumn.Caption := 'Capital';
	NewColumn := Columns.Add;
	NewColumn.Caption := 'Continet';
	NewColumn := Columns.Add;
	NewColumn.Caption := 'Area';
	NewColumn := Columns.Add;
	NewColumn.Caption := 'Area';

	for I := 0 to ClientDataSet1.RecordCount-1 do
	begin
	  ListItem := Items.Add;
	  ListItem.Caption := ClientDataSet1.fieldbyName('Name').AsString;
	  ListItem.SubItems.Add(ClientDataSet1.fieldbyName('Capital').AsString);
	  ListItem.SubItems.Add(ClientDataSet1.fieldbyName('Continent').AsString);
	  ListItem.SubItems.Add(ClientDataSet1.fieldbyName('Area').AsString);
	  ListItem.SubItems.Add(ClientDataSet1.fieldbyName('Population').AsString);
	  ClientDataSet1.Next;
	end;
  end;
end;

end.