Also,
die TabSheets erstelle ich so:
Delphi-Quellcode:
Tab:=TTabSheet.Create(PageControl1);
Tab.Name:='Tab'+IntToStr(RecNo);
Tab.Caption:=Form1.ZQuery1.FieldByName('realname').AsString;
Tab.Parent:=PageControl1;
Tab.PageControl:=PageControl1;
und so erzeuge ich die ListViews!
Delphi-Quellcode:
lv:=TListView.Create(Form1);
lv.ViewStyle:=vsReport;
for i:=0 to 4 do
begin
lv.Columns.Add;
end;
lv.Columns.Items[0].Caption:='Datum';
lv.Columns.Items[1].Caption:='Uhrzeit';
lv.Columns.Items[3].Caption:='Kommentar';
lv.Columns.Items[4].Caption:='Eingetragen von';
EDIT: Ich habe die Listviews jetzt doch in einem array gespeichert. Funktioniert. Danke