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

[sakura]

Und hier mein Vorschlag:

Code:

[color=#f50000]for i:=Pred(PageControl1.PageCount) downto 0 [/color]do begin 
  NewMemo[i].Free; 
  Pagecontrol1.Pages[i].Free; 
end;

Das hatten wir schon oft, beim Löschen aus Listen müssen diese RÜCKWÄRTS durchlaufen werden, da sich während des Löschens der Index der folgenden Seiten ändert

......