OnDrawTab korrekt ausführen

[himitsu]

Delphi-Quellcode:

procedure TCustomTabControl.SetOwnerDraw(Value: Boolean);
begin
  if FOwnerDraw <> Value then
  begin
    FOwnerDraw := Value;
    RecreateWnd;
  end;
end;

Alle internen Windows-Controls werden neu erzeugt und da das VCL-TMemo nicht die Scrollbarpositionen speichert, geht das natürlich verloren.