TImage als Parent

[uligerhardt]

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.

[m.r.m.]

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.

Das ist bei mir aber nicht transparent.