.Lines in einer geerbten TRichEdit ändern

[mkinzler]

Warum nennst du die klasse TQ..., dieser Suffix ist für CLX-Komponenten reserviert, deshalb kommt es zu Kollisionen. Es fehlt auch noch der Konstruktor der Klasse.

[Green]

kannst du mir erklären was ich dann machen Soll???

[mkinzler]

Im Interface
constructor Create( AOWner: TComponent); einfügen und im Implementation-Teil:

Delphi-Quellcode:

constructor TmyRichEdit.Create(AOWner: TComponent);
begin
  inherited Create( AOwner);
  FMyLines := TColoredStrings.Create;
end;

[Green]

aber mit folgender Unit gehts auch nicht:

Delphi-Quellcode:

unit Unit2;

interface

uses
  SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs;

type
  TColoredStrings = class(TStringList)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    function AddLines(const S:string): integer;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;


  TPRichEdit = class(TRichEdit)
  private
    { Private-Deklarationen }
    FMyLines: TColoredStrings;
  protected
    { Protected-Deklarationen }
  public
    constructor Create( AOWner: TComponent);
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
    property Lines: TColoredStrings read FMyLines write FMyLines;
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Beispiele', [TPRichEdit]);
end;

function TColoredStrings.AddLines(const S:string): integer;
begin
  showmessage(S);
end;

constructor TPRichEdit.Create(AOWner: TComponent);
begin
  inherited Create( AOwner);
  FMyLines := TColoredStrings.Create;
end;

end.

[mkinzler]

Ich kann hier auf die schnelle keine Fehler finden, bis auf die Tatsache das Unit2 für die Quellcodedateieiner komponente nicht gut ist. Also du hast echt ein Händchen für Klassennamen und Dateinamen
Könntest du dein Projekt mal anhängen ( Komponente und Testprogramm)?

[Green]

hier mal die datas

[mkinzler]

Es war noch ein Fehler im Konstruktor und noch die falsche Unit in der Uses. Jetzt gehts.

[Green]

in der pas datei in deinem Archiv finde ich keinen Unterschied zu meiner...

[mkinzler]

Dann schau dir mal Zeile 53 an. Dort stand bei dir

Zitat:

FMyLines := TPRichEdit.Create;

was doppelt falsch war.

[Green]

aber mit der die du mir geschickt hast gehts au nit...

€: könnte es sein das meinem TColoredStrings schlicht der constructor fehlt??