AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Komponente Align funktioniert nicht

Ein Thema von Hobbycoder · begonnen am 26. Feb 2019 · letzter Beitrag vom 28. Feb 2019
 
Hobbycoder

Registriert seit: 22. Feb 2017
1.002 Beiträge
 
#1

Komponente Align funktioniert nicht

  Alt 26. Feb 2019, 12:34
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.

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:
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]
Angehängte Grafiken
Dateityp: png panel.png (2,9 KB, 22x aufgerufen)
Gruß Hobbycoder
Alle sagten: "Das geht nicht.". Dann kam einer, der wusste das nicht, und hat's einfach gemacht.

Geändert von Hobbycoder (26. Feb 2019 um 12:47 Uhr)
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 20:39 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz