RichEdit mit einer Ableitung von TStringlist laufen lassen

[r29d43]

Hallo,

angenommen ich habe TStringlist abgeleitet und möchte nun eine RichEdit-Komponente mit diesem abgeleiteten TStringlist-Objekt laufen lassen. Dann habe ich das natürlich vorab auch noch dem RichEdit mitzuteilen. Nur wie? Reicht da eine einfache Zuweisung ala

RichEdit1.Lines := MyOwnLines; hierfür aus? Denn irgendwie habe ich das Gefühl, dass die von mir überschriebenen Methode gar nicht besucht wird. Habe dort einen Breakpoint gesetzt (und ein Beep), aber der Debugger stoppt da nicht (Beep ist auch nicht zu hören).


Hier event. nochmal die Ableitungsformalismen:

Delphi-Quellcode:

type
  TOStrings = class(TStringList)
  public
    procedure LoadFromStream(Stream: TStream); override;
  end;



procedure TOStrings.LoadFromStream(Stream: TStream);
var
  Size: Integer;
  S: string;
begin                              windows.beep(1000,30);
  BeginUpdate;
  try
    Size := Stream.Size - Stream.Position;
    SetString(S, nil, Size);
    Stream.Read(Pointer(S)^, Size);
    SetTextStr(S);
  finally
    EndUpdate;
  end;
end;

Den Code für die LoadFromStream-Methode habe ich hierfür aus der Classes-Unit herauskopiert.

Thx schonmal im Voraus.