Hi,

ich möchte mir eine Komponente erstellen. Später als TWinControl, jetzt aber erst mal als TCustomPanel.
Mein Problem ist, dass die Eigenschaft Align scheinbar nicht so funktioniert, wie ich es erwarte.

zusammenfalten · markieren

Delphi-Quellcode:

unit uTestContainer;

interface

uses System.Classes, Vcl.Controls, Vcl.Graphics, Vcl.ExtCtrls, System.SysUtils;

type
  TTestContainer=class(TCustomPanel)
  private
  public
    constructor Create(AOwner: TComponent);
    destructor Destroy; override;
  published
    property Align;
  end;

implementation

{ TTestContainer}

constructor TTestContainer.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := [csOpaque];
  self.Parent:=AOwner as TWinControl;
  self.BevelWidth:=10;
end;

destructor TTestContainer.Destroy;
begin
  inherited;
end;

end.

Erzeugt im Testprogramm:

markieren

Delphi-Quellcode:

procedure TForm1.btn1Click(Sender: TObject);
var
  tc: TTestContainer;
begin
  tc:=TTestContainer.Create(pnl1); //pnl1 ist ein einfaches TPanel auf der Form
  tc.Align:=alClient; //Müsste jetzt nicht das TTestContainer das Panel ausfüllen?
end;

Das Ergebnis obigen Codes sie folgendermaßen aus: Siehe Anhang

Liegt das daran, dass ich das erst mal nur als Klasse eingebunden habe (nicht als Komponente registriert) Oder fehlt da noch was entscheidendes?
Mein bisherigen Kompoenten erbten Align einfach von der abgeleiteten Klasse. Ich meine mich nicht erinnern zu können für das Align extra Code erstellt zu haben.

[Edit] Grad noch mal getestet. Auch wenn ich das als Komponente registriere, kann ich das zwar auf meine Form setzen, die Eigenschaft Align ist zwar im OI auch vorhanden, aber auf eine Änderung auf alClient reagiert die Komponente nicht, und verändert weder die Position noch die Größe [/Edit]

Hmm..

Neue Projekt, nen Button und nen Panel draufgeschmissen, deinen Source Copy%Paste (mit Anpassen Panel-Name)

und...

Das per Btn.Click erzeugte Panel füllt das Owner-Panel aus...

Somit sollte dies funktionieren...

JEDOCH, ich hab das hier mit Delphi6 getestet...

Ergänze das Create mal bitte um self.Align := alNone; Bei Delphi 7 wirkt die Zuweisung eines Werte auf Align (meist) nur dann, wenn sich der Wert von Align ändert.

Zitat von HolgerX:

JEDOCH, ich hab das hier mit Delphi6 getestet...

Funktioniert auch mit Delphi 10.3 Rio

Übrigens muss das
    constructor Create(AOwner: TComponent); override;
heißen!

Hm...okay.

Längere Pause gemacht. Alles noch mal verworfen. Neues Projekt, unit erzeugt, Code per C&P reinkopiert. Läuft. Warum, kann ich nicht nachvollziehen.
Sorry, ich hatte den Fehler bei mir gesucht.

@Uwe: Danke für den Hinweis.

Wieso setzt Du eigentlich explizit den Parent mit dem Owner gleich? Wenn man installierte Komponenten auf einem Container-Control platziert, bekommen die üblicherweise das Formular als Owner, man möchte aber eigentlich das Container-Control als Parent, oder?

Zitat von DeddyH:

Wieso setzt Du eigentlich explizit den Parent mit dem Owner gleich? Wenn man installierte Komponenten auf einem Container-Control platziert, bekommen die üblicherweise das Formular als Owner, man möchte aber eigentlich das Container-Control als Parent, oder?

Hast recht. Ist auch nicht mehr drin. Ich hatte das zum probieren reingeschrieben, weil ich den Fehler gesucht hatte.