Hi Leute,
stehe irgendwie auf dem Schlauch. Ich will eine Komponente erweitern, aber schaffe es nicht mal eine weiter Property hinzuzufügen und in der Laufzeit auszugeben.
Habe den Code mal auf das Minium reduzierz, es muß irgendwas ganz dämliches meinerseits sein
Danke für eure Hilfe!
Delphi-Quellcode:
unit DBRichEditExt;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ComCtrls, DBCtrls, Graphics, ExtCtrls,
Dialogs, Forms, Windows;
type
TDBRichEditExt =
class(TDBRichEdit)
private
{ Private-Deklarationen }
FCaption :
String;
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create(AOwner: TComponent);
override;
published
{ Published-Deklarationen }
property Caption:
String read FCaption
write FCaption;
end;
procedure Register;
implementation
procedure Register;
begin
RegisterComponents('
Samples', [TDBRichEditExt]);
end;
constructor TDBRichEditExt.Create(AOwner: TComponent);
begin
inherited;
showmessage(FCaption);
// immer leer?
end;
end.