Package compiliert nicht

[APP]

Hallo,
probier mal das:

Delphi-Quellcode:

UNIT CustEd;

INTERFACE

USES
   Windows,
   Messages,
   SysUtils,
   Classes,
   Graphics,
   Controls,
   Forms,
   Dialogs,
   StdCtrls;

TYPE
   TCustEd = CLASS(TEdit)
   PRIVATE
      FDBfeldLabel: TLabel;
      FWriteLabel: STRING;
      { Private-Deklarationen }
   PROTECTED
      { Protected-Deklarationen }
   PUBLIC
      PROCEDURE SetWriteLabel(CONST Value: STRING);
      { Public-Deklarationen }
   PUBLISHED
      PROPERTY DBfeldLabel: TLabel READ FDBfeldLabel WRITE FDBfeldLabel;  // Jetzt kannst Du einen Label im OI einbinden
      PROPERTY WriteLabel: STRING READ FWriteLabel WRITE SetWriteLabel;
      { Published-Deklarationen }
   END;

PROCEDURE Register;

IMPLEMENTATION

PROCEDURE TCustEd.SetWriteLabel(CONST Value: STRING);
BEGIN
   IF Assigned(FDBfeldLabel) THEN
      BEGIN
         FDBfeldLabel.Caption := Value;
         FDBfeldLabel.Refresh;
      END;
END;

PROCEDURE Register;
BEGIN
   RegisterComponents('app', [TCustEd]);
END;

END.

Aufruf:

Delphi-Quellcode:

PROCEDURE TForm1.Button1Click(Sender: TObject);
BEGIN
   CustEd1.SetWriteLabel('fer');
END;

Ist vielleicht nicht ganz das was Du willst, aber ausbaufähig...

[edit=Daniel B]Tags korrigiert. MfG Daniel B.[/edit]

@Daniel, Danke!

Leider verschwand mein
[EDIT] Constructor Create ist unnötig! [/EDIT]