Moin !
Da die Standardsachen für Delphi den eigenen Ansprüchen auf Dauer nicht genügen, habe ich mich mal an einer eigenen Komponente versucht. Bei der ersten Einbindung in die dclusr.dpk hat alles wunderbar geklappt und meine neue Komponente wurde unter dem Reiter "Markus" angezeigt. Im zweiten Schritt habe ich dann diese Komponente wieder entfernt und die Eigenschaften "Hint, Showhint" angefügt.
Als dieses dann wieder als Komponente installiert habe, tauchte diese Komponenten leider nicht mehr auf. Beim compilieren trat kein Fehler auf. Meine Frage dazu, was ist schief gelaufen ?
Danke für die Hilfe, anbei der
QC.
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;
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.