Komponente erstellen - Wie ?

[skunker]

Hallo,

ich habe ein Panel mit verschiedenen Images drauf etc.

Diese möchte ich jetzt als Komponente erstellen, sodass ich einfach son kleinen Button aufs Formular ziehen kann wie son TEdit usw. und schwupps habe ich wieder mein Panel mit den Bildern drauf.

Wie kann ich sowas erstellen ?
Hab schon bei delphi-source die Tutorials gelesen und weiß wie man ne Kompo erstellt aber wie funzt das wenn ich gleich noch andere Komponenten auf meiner drauf haben will.

Danke im Voraus!

mfg
skunker

[mkinzler]

Grundsätzlich genauso. Du Legst die "Unter"-Komponeneten als Member an, und sorgst dafür, das sie vom Constructor erzeugt und vom Destructor zerstört werden.

[skunker]

hmm hast du da eventuell ein simples Beispiel parat?

[ManuMF]

Hallo,

vielleicht kannst du dir hier Anregungen holen. Da geht es um ein Label mit Timer, aber das Prinzip ist das gleiche.

Gruß,
ManuMF

[skunker]

hmm also mit diesem code will ich ein 20x20pixel großes shape links oben auf dem Panel haben welches ich erstelle nur wieso funzt das nicht:

Delphi-Quellcode:

unit MyPanel;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls,Graphics;

type
  TMyPanel = class(TPanel)
  private
  image1: TShape;
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
  constructor Create(AOwner: TComponent); override;
  destructor Destroy; override;
    { Public-Deklarationen }
  published
    { Published-Deklarationen }
  end;

procedure Register;

implementation

constructor TMyPanel.Create;
begin
  inherited;
  image1:= TShape.Create(self);
  image1.Visible := true;
  image1.Left := 0;
  image1.Top := 0;
  image1.Width:= 20;
  image1.Height := 20;
end;

destructor TMyPanel.Destroy;
begin
  image1.Free;
  inherited;
end;

procedure Register;
begin
  RegisterComponents('Beispiele', [TMyPanel]);
end;

end.

[Ratte]

fehlt ein TShape.parent := self; denke ich.
Ratte

[skunker]

ahh ok danke !!!
Jetzt gehts :)