Ich hab folgendes vor:
Hab ne neue Komponente erstellt:
Delphi-Quellcode:
type TCSTyp = (tAdresse, tRechnung, tLieferung);
TCSAdressLabel = class(TCSQRRichText)
private
FFelder:TStringList;
FTyp: TCSTyp;
FDataSet: TDataSet;
FVergleichMit: TCSAdressLabel;
FDruckeImmer:Boolean;
FEndValue:String;
fRich : TRichEdit;
procedure MyOnPrint(sender: TObject; var Value: String);
procedure SetFelder(const AStrings: TStringList);
public
constructor Create(AOwner:TComponent);override;
destructor Destroy;override;
published
property Felder : TStringlist read FFelder write SetFelder;
property Typ : TCSTyp read FTyp write FTyp;
property DataSet : TDataSet read FDataSet write FDataSet;
property VergleichMit : TCSAdressLabel read FVergleichMit write FVergleichMit;
property DruckeImmer: Boolean read FDruckeImmer write FDruckeImmer;
end;
Die Var "fRich : TRichEdit" unter private benutze ich um im constructor ein Objekt vom Typ TRichEdit zu erzeugen:
Delphi-Quellcode:
constructor TCSAdressLabel.Create(AOwner:TComponent);
begin
fRich := TRichEdit.Create(Self);
Self.ParentRichEdit := fRich; // <-- Problematische zeile
inherited Create(aowner);
ffelder := tstringlist.Create;
Self.OnPrint := Self.MyOnPrint;
end;
Solange ich die "Problematische Zeile" auskommentiere, kann ich mein Projekt öffnen und bearbeiten
Wenn ich sie jedoch wieder aktiviere krieg ich ne Fehlermeldung (Siehe Anhang)
Warum kann ich in meiner Kompo die Eigenschaft "ParentRichEdit" nicht beim erstellen sofort das neu erstellte "fRich" zuweisen???