Einzelnen Beitrag anzeigen

Benutzerbild von Pseudemys Nelsoni
Pseudemys Nelsoni

Registriert seit: 24. Dez 2002
Ort: Hamburg-Harburg
3.551 Beiträge
 
#4

Re: Memo zur laufzeit Kreieren und schliessen

  Alt 20. Jan 2004, 15:54
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;
Mario
  Mit Zitat antworten Zitat