Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Sonstige Fragen zu Delphi (https://www.delphipraxis.net/19-sonstige-fragen-zu-delphi/)
-   -   Delphi [Komponentenentwicklung] Problem mit Subkomponenten (https://www.delphipraxis.net/77718-%5Bkomponentenentwicklung%5D-problem-mit-subkomponenten.html)

HalloDu 23. Sep 2006 19:13


[Komponentenentwicklung] Problem mit Subkomponenten
 
Hi, (und erstmal entschuldigung, falls es das falsche Forum ist)

Ich habe eine Komponente von TGraphicControl abgeleitet und möchte wissen wie man wie bei TPageControl solche Sub-Komponenten (Damit meine ich die Pages, die immer so transparent dargestellt werden) in seiner eigenen Komponente benutzt.

Freue mich über jede Antwort. (Naja jede produktive :mrgreen: )

HalloDu 24. Sep 2006 19:24

Re: [Komponentenentwicklung] Problem mit Subkomponenten
 
Es sind 24 Stunden vergangen und hiermit pushe ich das dann mal :duck:

Weiß denn niemand was zu dem Thema oder versteht ihr die Frage nicht?

CK_CK 24. Sep 2006 19:29

Re: [Komponentenentwicklung] Problem mit Subkomponenten
 
Hallo,
du erzeugst die Subkomponenten einfach in Konstruktor und gibst sie im Destruktor wieder frei...

Wo ist dein Problem?

mkinzler 24. Sep 2006 19:34

Re: [Komponentenentwicklung] Problem mit Subkomponenten
 
In diesem fall würde ich dann gleich von TPageControl ableiten.

HalloDu 24. Sep 2006 20:12

Re: [Komponentenentwicklung] Problem mit Subkomponenten
 
Das mit TPageControl war nur ein Bsp., ich will in ne ganz andere Richtung

Sunlight7 24. Sep 2006 20:18

Re: [Komponentenentwicklung] Problem mit Subkomponenten
 
Und welche Richtung?

Oder meinst Du so etwas?

Delphi-Quellcode:
type
  TMyControl = class(TCustomControl)
  private
    MySubControl:TCustomControl;
  public
    constructor Create(AOwner:TComponent); override;
    destructor Destroy; override;
  end;

...

constructor TMyControl.Create(AOwner:TComponent);
begin
   inherited Create(AOwner);

   Width:=100;
   Height:=100;
   Color:=clRed;

   MySubControl:=TCustomControl.Create(Self);
   With MySubControl do begin
      Parent:=Self;
      Brush.Color:=clLime;
      SetBounds(25, 25, 50, 50);
      Visible:=True;
   end;
end;

destructor TMyControl.Destroy;
begin
   MySubControl.Free;

   inherited Destroy;
end;
PS: TGraphicControl kann nicht als Parent verwendet werden (korrigiert mich falls das nicht stimmt)
MySubControl könnte aber eine TGraphicControl ableitung sein.


Alle Zeitangaben in WEZ +1. Es ist jetzt 22:10 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