Letztes TabSheet(PageControl) bleibt beim löschen stehen !

[Sharky]

Hai Teclis,

ich habe zum Test mal diesen Code geschrieben:

http://www.sharkys-home.de/smiles/finger.gif

Delphi-Quellcode:

var
 MyMemos : Array [0..10] Of TMemo;
 MyPages : Array [0..10] Of TTabSheet;

procedure TForm1.Button1Click(Sender: TObject);
var
 ndx : Integer;
begin
 for ndx := 0 to 10 do
  begin
   MyPages[ndx] := TTabSheet.Create(self);
   MyPages[ndx].PageControl := PageControl1;
   MyMemos[ndx] := TMemo.Create(self);
   MyMemos[ndx].Parent := MyPages[ndx];
   MyMemos[ndx].Visible := True;
   MyMemos[ndx].Align := alClient;
  end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
 ndx : Integer;
begin
 for ndx :=0 to PageControl1.PageCount-1 do
  begin
  MyMemos[ndx].Free;
  MyPages[ndx].Free;
  end;
end;

Er macht das ohne Probleme.