neue Komponente mit drei Controls

[mason]

Hi,

ich möchte mir eine Komponente basteln, auf der drei Controls (DBEdit, Panel, Button) sind. Dafür leite ich ein Objekt von TCustomPanel ab und lege die Controls als Properties nach aussen.

Delphi-Quellcode:

type
  TMyControl = class(TCustomPanel)
  public
    FConnectEdit: TDBEdit;
    FConnectPanel: TPanel;
    FConnectButton: TButton;
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property ConnectEdit: TDBEdit read FConnectEdit write FConnectEdit;
    property ConnectPanel: TPanel read FConnectPanel write FConnectPanel;
    property ConnectButton: TButton read FConnectButton write FConnectButton;
  end;

Im Create des Objekts werden die Controls erstellt. Klappt auch soweit alles wie es soll - mein Problem ist Folgendes:
Wenn ich die neue Komponente auf ein Formular lege, und dann per Objektinspektor an den Eigenschaften der Controls rumstelle, bekomme ich die Veränderungen zur Designzeit zwar zu sehen, aber zur Laufzeit kennt das Programm diese Einstellungen nicht mehr.
Kann mir jemand sagen, wo mein Fehler ist?

Danke,
Mason

[maximov]

Zitat von mason:

Hi,...Wenn ich die neue Komponente auf ein Formular lege, und dann per Objektinspektor an den Eigenschaften der Controls rumstelle, bekomme ich die Veränderungen zur Designzeit zwar zu sehen, aber zur Laufzeit kennt das Programm diese Einstellungen nicht mehr.
Kann mir jemand sagen, wo mein Fehler ist?

Danke,
Mason

Wenn du die komponenten-properties read-und writebar, dann denkt das streaming system, dass es sich nur um einen link auf eine andere, lose gekoppelte, komponente handelt. Wenn du es readOnly machtst sollte es gehen, denn dann sind die subkomponenten aggregiert und nicht mehr lose.


PS: Willkommen in der DP

[mason]

Zitat von maximov:

Wenn du die komponenten-properties read-und writebar, dann denkt das streaming system, dass es sich nur um einen link auf eine andere, lose gekoppelte, komponente handelt. Wenn du es readOnly machtst sollte es gehen, denn dann sind die subkomponenten aggregiert und nicht mehr lose.

Danke für die schnelle Antwort, funktioniert aber leider nicht. Einstellungen in den Controls werden zur Laufzeit immernoch ignoriert, es kommt nichts in der DFM-Datei an.

Zitat von maximov:

PS: Willkommen in der DP

Danke schön - da scheint was dran zu sein

[mason]

Wen es interessiert: ich hab's!
Direkt nach dem Erstellen eines Controls muss die Prozedur SetSubComponent aufgerufen werden, und schon wird alles gut.

Delphi-Quellcode:

constructor Create(AOwner: TComponent);
begin
  inherited;
  FConnectEdit := TDBEdit.Create(Self);
  FConnectEdit.SetSubComponent(true);
end;