Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
31. Dez 2005
Originell dein Code ist.
Wenn du pro TabSheet nur eine ListView hast, dann würde ich mir die im TabSheet.Tag merken und die Sucherei entfällt:
new_Sheet.Tag := Integer(new_ListView);
marabu
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
31. Dez 2005
new_listview := TListview.Create(new_ListView);
Nicht so gut, weil der Zufallswert der nicht initialisierten lokalen Variable new_ListView als Owner im Konstruktor übergeben wird.
list_view := TListView.Create(Form1);
Kann man machen - aber wenn die dynamisch erzeugten TabSheets auch dynamisch zerstört werden, dann sollten sie schon Owner ihrer controls sein, damit sie auch deren Speicher...
Forum: GUI-Design mit VCL / FireMonkey / Common Controls
Delphi
by marabu,
31. Dez 2005
new_listview := TListview.Create(new_Sheet);
Die Methode Form1.FindComponent() findet nur solche Komponenten, deren Owner Form1 ist.
function ActiveListView(pc: TPageControl): TListView;
begin
Result := pc.ActivePage.FindComponent('ListView' + IntToStr(pc.ActivePageIndex)) as TListView;
end;
Silvestergrüße vom marabu