Einzelnen Beitrag anzeigen

Benutzerbild von TheMiller
TheMiller

Registriert seit: 19. Mai 2003
Ort: Gründau
2.480 Beiträge
 
Delphi XE7 Architect
 
#8

Re: Wie komme ich an dyn. ListView auf PageControl ran?

  Alt 17. Dez 2008, 23:24
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
  Mit Zitat antworten Zitat