Probier' mal das (siehe den Teil über "implementation"):
Delphi-Quellcode:
unit _WPLabeledEdit;
interface
uses
SysUtils, Classes, Controls, StdCtrls, ExtCtrls;
type
T_WPLabeledEdit =
class(TLabeledEdit)
private
{ Private-Deklarationen }
protected
{ Protected-Deklarationen }
public
{ Public-Deklarationen }
constructor Create (Owner: TComponent);
override;
destructor Destroy;
override;
published
{ Published-Deklarationen }
end;
procedure Register;
//Diese Zeile hinzufügen!
implementation
procedure Register;
begin
RegisterComponents('
Markus', [T_WPLabeledEdit]);
end;
constructor T_WPLabeledEdit.Create(Owner: TComponent);
begin
inherited ;
//Create(TLabeledEdit);
Readonly := True;
Color := $0000B0F0;
ShowHint := True;
Hint := '
Geschützes Eingabefeld';
ParentShowHint := False;
end;
destructor T_WPLabeledEdit.destroy;
begin
inherited Destroy;
end;
end.