Delphi-Quellcode:
with TListView.Create(pfrm) do
begin
Top := 50;
Left := 1;
Height := 50;
Width := 500;
name := 'list_' + IntToStr(tab.FieldAsInteger(tab.FieldIndex['pid']));
Parent := page_control.Pages[PInc];
FlatScrollBars := True;
FullDrag := True;
GridLines := True;
ReadOnly := True;
RowSelect := True;
ShowHint := False;
SortType := stData;
ViewStyle := vsReport;
DoubleBuffered := True;
//Align := alClient;
with (pfrm.FindComponent(name) as TListView).Columns.Add do
begin
caption := 'TEST1';
end;
with (pfrm.FindComponent(name) as TListView).Columns.Add do
begin
caption := 'Test2';
end;
with (pfrm.FindComponent(name) as TListView).Columns.Add do
begin
caption := 'Test3';
end;
end;
Das mein Code der ist ok
aber wenn ich durch die Seiten meiner PageControl navigiere und dann wieder zu einer vorigen aufgerufenen sind die Titel meiner Listview weg!
WARUM!?