Hallo, ich bins mal wieder...

Ich habe mir eine Klasse von TPanel abgeleitet, im Constructor ein paar Eingenschaften angepasst und noch ein paar zusätzliche Sachen eingebaut. Soweit so gut.

Da ich mit Turbo Explorer unterwegs gewesen bin habe ich mir auch keine Gedanken zu Komponenten gemacht, weil ich die Klasse sowieso aus dem Quelltext erstellt habe und das funktionierte auch mit allen gewünschten Funktionen.

Jetzt habe ich Turbo Professional und möchte natürlich daraus eine Komponente entwickeln, um die Programmoberfläche auch schnell und einfach grafisch zur Entwurfszeit erstellen zu können und da fangen die Probleme auch schon an.

Wie ich ein Package erstelle und die Komponente installiere, habe ich jetzt schon hingekriegt. Der Einfachheit halber habe ich auch erst mal nur eine Klasse von TPanel abgeleitet und möchte einfach, dass der Rahmen optisch meinen Gegebenheiten entspricht. Ich habe das, wie bisher, in den Constructor geschrieben, aber weder zur Entwurfs- noch zur Laufzeit ändert sich etwas im Vergleich zum eigentlichen TPanel. Jetzt steh ich grad auf dem Schlauch. Wie geht das sinnvoll??

zusammenfalten · markieren

Delphi-Quellcode:

type
  TbrosePanel = class(TPanel)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
    constructor Create(AOwner: TComponent); Reintroduce;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

uses Forms;

procedure Register;
begin
  RegisterComponents('Brose', [TbrosePanel]);
end;

constructor TbrosePanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  BevelInner := bvNone;
  BevelKind := bkFlat;
  BevelOuter := bvNone;
  BorderStyle := bsNone;
end;

Nebenbei:

Zitat von guidok:

constructor Create(AOwner: TComponent); Reintroduce;

Ändere das reintroduce mal bitte in override

Zitat von Deep-Sea:

Nebenbei:

Wieso nebenbei? Das ist der Fehlergrund! Die VCL ruft den virtuellen Constructor auf und er führt einen neuen ein. Somit wird der von TPanel vererbte durchlaufen aber nicht sein neu eingeführter (was ja verständlich ist) und somit werden seine Einstellungen nicht übernommen.

Zitat von Muetze1:

Zitat von Deep-Sea:

Nebenbei:

Wieso nebenbei?

Lass mir doch etwas Sarkasmus
(reintroduce ist etwas, was man soo selten nutzen kann, wie kommt man also da drauf, das so zu machen?)

Ok, bei override, virtual, reintroduce habe ich noch so meine Probleme...

Bei meiner Klassenversion (nicht Komponente) lautete der Konstruktor noch anders, weil ich mit dem Erzeugen der Instanz auch gleich den Parent angeben wollte. Hat so auch funktioniert.
constructor Create(AOwner: TComponent, AParent: TControl); Reintroduce; Da hatte ich vorher "reintroduce" weggelassen und bekam dafür zumindest eine Warnung.

Vielleicht kann man mir das mal mit verständlichen Worten erklären, wäre schön?

Ich bin mit meiner Komponente nun auch auf gutem Wege, so am Rande...