TImage als Parent

[m.r.m.]

Gibt es eine Möglichkeit TImage so zu verändern, dass es ähnlich wie TPanel Parent von anderen Controls sein kann?

[jfheins]

Wenn TImage von TGraphicControl abstammt nicht, wenn es von TWinControl abstammt, ja.

Hab grad kein Delphi zur Hand, aber das wäre meine erste Überlegung.

[uligerhardt]

Zwei Ideen, beide ungetestet:

• Eine Komponente ableiten und im Konstruktor csAcceptsControls zu ControlStyle hinzufügen.
• Zur Laufzeit die Eigenschaft Parent der Kind-Controls auf das Image umbiegen.

HTH,
Uli.

[m.r.m.]

Zitat:

Zitat von uligerhardt

Eine Komponente ableiten und im Konstruktor csAcceptsControls zu ControlStyle hinzufügen.

Wie sieht der Code dafür aus?

[uligerhardt]

Zitat:

Zitat von m.r.m.

Zitat:

Zitat von uligerhardt

Eine Komponente ableiten und im Konstruktor csAcceptsControls zu ControlStyle hinzufügen.

Wie sieht der Code dafür aus?

Wofür? Das Ableiten? Den Konstruktor überschreiben? Das Manipulieren von ControlStyle?

[m.r.m.]

Ich habe jetzt folgendes geschrieben, aber das funktioniert nicht.

Delphi-Quellcode:

unit ImagePanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls;

type
  TImagePanel = class(TImage)
  private
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    constructor Create(AOwner: TComponent); override;
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TImagePanel]);
end;

constructor TImagePanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  ControlStyle := ControlStyle + [csAcceptsControls];
end;

end.

[uligerhardt]

Zitat:

Zitat von m.r.m.

Ich habe jetzt folgendes geschrieben,

Schaut soweit gut aus.

Zitat:

Zitat von m.r.m.

aber das funktioniert nicht.

Was meinst du denn mit "funktioniert nicht"? Gibt's ne Fehlermeldung?
Hast du das Ganze in der IDE installiert - d.h. in ein Package gepackt und dieses compiliert und installiert?

[m.r.m.]

Zitat:

Zitat von uligerhardt

Hast du das Ganze in der IDE installiert - d.h. in ein Package gepackt und dieses compiliert und installiert?

Ja.

Ich konnte nicht wie bei Panels andere Controls in mein TImagePanel einfügen.

[Hawkeye219]

Hallo,

auch durch Ableiten kann man aus einem TImage keinen TWinControl-Nachfolger machen. Es wird also weder über ein Controls-Array verfügen, noch kann es Parent eines anderen Controls werden. Die erste Überlegung von Julius (Beitrag #2) war somit richtig.

Warum möchtest du das Image unbedingt als Parent haben? Kannst du dein Ziel nicht auf einem anderen Weg erreichen?

Gruß Hawkeye

[m.r.m.]

Mir würde auch ein transparentes Panel ausreichen.
Dieses müsste aber auch auf einem GlassFrame transparent sein.

[uligerhardt]

Zitat:

Zitat von Hawkeye219

auch durch Ableiten kann man aus einem TImage keinen TWinControl-Nachfolger machen. Es wird also weder über ein Controls-Array verfügen, noch kann es Parent eines anderen Controls werden. Die erste Überlegung von Julius (Beitrag #2) war somit richtig.

Stimmt. Da stand ich wohl auf dem Schlauch. :-)

Also Aggregation, etwa so:

Delphi-Quellcode:

  TImagePanel = class(TCustomPanel)
  private
    FImage: TImage;
  public
    constructor Create(AOwner: TComponent); override;
    property Image: TImage read FImage;
  end;

constructor TImagePanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  AutoSize := True;
  FImage := TImage.Create(Self);
  FImage.Parent := Self;
end;

Das funktioniert mit Erzeugen zur Laufzeit. Für Designzeit-Unterstützung braucht's wohl noch etwas Feinschliff. :mrgreen:

[m.r.m.]

Zitat:

Zitat von uligerhardt

Also Aggregation, etwa so:

Delphi-Quellcode:

  TImagePanel = class(TCustomPanel)
  private
    FImage: TImage;
  public
    constructor Create(AOwner: TComponent); override;
    property Image: TImage read FImage;
  end;

constructor TImagePanel.Create(AOwner: TComponent);
begin
  inherited Create(AOwner);
  AutoSize := True;
  FImage := TImage.Create(Self);
  FImage.Parent := Self;
end;

Das funktioniert mit Erzeugen zur Laufzeit. Für Designzeit-Unterstützung braucht's wohl noch etwas Feinschliff. :mrgreen:

Das ist bei mir aber nicht transparent.