Danke für Eure schnellen Antworten...
ich habe nun mal etwas probiert. Aber ich glaube, ich verstehe es noch nicht mit inherited, constructor und so..
Habe eine Komponente erstellt, compiliert und installiert...beim Compilieren kommt auch kein Fehler.
Nun habe ich gedacht, wenn ich die Komponente auf eine Form ziehe, ändert er mir wenigstens die caption von dem Panel, aber nix
Hier der Code
Delphi-Quellcode:
unit Silo_aus_Panel;
interface
uses
System.SysUtils, System.Classes,
Vcl.Controls,
Vcl.ExtCtrls, graphics;
type
TSilo_aus_Panel =
class(TPanel)
private
{ Private-Deklarationen }
//Zugriff nur innerhalb der Komponente
protected
{ Protected-Deklarationen }
//Deklarationen sichtbar in innerhalb der unit und abgeleiteten Klassen
public
{ Public-Deklarationen }
//Steht nur zur Laufzeit zur Verfügung
//Laufzeit Schnittstelle
published
{ Published-Deklarationen }
//kommt in Objektinspektor
//steht auch im Design-Modus zur Vergügung
//keine Schreibgeschützten Eigenschaft reinstellen
constructor create;
end;
procedure Register;
implementation
constructor Tsilo_aus_Panel.create;
var
Silo: tshape;
VollMelder: tshape;
LeerMelder: tshape;
begin
**** das folgende wird nicht ausgeführt *****
??????
inherited create(self);
caption := '
Neue Caption!';
Silo := tshape.create(self);
with silo
do
begin
//Parent := form1; ????
width := 90;
height := 200;
brush.color := clmoneygreen;
shape := strectangle;
visible := true;
end;
end;
procedure Register;
begin
RegisterComponents('
SPS', [TSilo_aus_Panel]);
end;