also ich hab jetzt folgende zwei Units:
RichEdit.pas
Delphi-Quellcode:
unit RichEdit;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls;
type
TColoredStrings =
class(TColoredStrings)
end;
T1RichEdit =
class(TRichEdit)
private
{ Private-Deklarationen }
FMyLines: TColoredStrings;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
published
{ Published-Deklarationen }
property Lines: TColoredStrings
read FMyLines
write FMyLines;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Beispiele', [T1RichEdit]);
end;
end.
ColoredStrings.pas
Delphi-Quellcode:
unit ColoredStrings;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls, Dialogs;
type
TColoredStrings =
class(TStrings)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
function AddLines(
const S:
string): integer;
{ Public-Deklarationen }
published
{ Published-Deklarationen }
end;
implementation
function TColoredStrings.AddLines(
const S:
string): integer;
begin
showmessage(S);
end;
end.
als die COloredStrings sind erfolgreich Installiert aber T1RichEdit kompo erscheint einfach nicht im inspektor und ich find kein Fehler
mfG Green
p.s. bin der von delphi-forum.de ^^