hi,
ich hatte das nochmal mit nem dynamischem array gemacht, da ich beliebig viele brauche,
aber irgendwie bekomme ich beim buttonclick ne Zugriffsverletzung.
Was ist an folgendem falsch?
dynArray: Array of TTabSheet; // Global
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
SetLength(dynArray, high(dynArray)+2);
with dynArray[high(dynArray)+1] do
begin
Create(self);
Name := 'TabSheet' + IntToStr(high(dynArray)+1);
Parent := PageControl1;
Caption := 'hi';
PageControl := PageControl1;
Show;
end;
end;