ich habe mir eine Komponenete von TComponent abgeleitet und eine Image Komponente zur Laufzeit im Konstruktor erstellt.
Diese wird aber nicht sichtbar.

//---------------------------------------------------------------------------
class PACKAGE TDiagramm : public TComponent
{
private:
	TImage* Image;
protected:
public:
	__fastcall TDiagramm(TComponent* Owner);
__published:
};

static inline void ValidCtrCheck(TDiagramm *)
{
	new TDiagramm(NULL);
}
//---------------------------------------------------------------------------
__fastcall TDiagramm::TDiagramm(TComponent* Owner)
	: TComponent(Owner)
{
	Image = new TImage((TForm*)Owner);   //Welchen Zeiger muss ich übergeben?
     Image->Width = 100;
     Image->Height = 100;
	Image->Canvas->Brush->Color = clBlack;
     Image->Canvas->FillRect(Rect(0,0,Image->Width,Image->Height));
     Image->Visible = true;
}
//---------------------------------------------------------------------------
namespace Diagramm
{
	void __fastcall PACKAGE Register()
	{
		TComponentClass classes[1] = {__classid(TDiagramm)};
		RegisterComponents("Standard", classes, 0);
	}
}

du must ja auch noch Parent zuweisen

Image = new TImage(Owner);
Image->Parent = Parent;

bis bald
akari

richtig habe ich gerade auch schon drüber nachgedacht.

Danke für Deine Hilfe.

Hier kann Parent aber immer nur vom Typ TForm sein, ich möchte aber für die Komponenete als Parent eine GroupBox haben. Versuche ich meine Komponente
in eine GroupBox zu setzen erscheint das Image oben links in der Form
und nicht in der GroupBox.
Wie kann ich die Komponente am besten testen, öffne ich den Builder zweimal
mit der zu testenden Komponenete, kann ich die Komponente nicht mehr erzeugen.
Fehler :"Programm still running".

dan must du für TDiagramm eine Eigenschaft vom Typ TWinControl erstellen, die du den gewünschten parent zuweisen kannst. Diesen gibts du dann über den Setter an das Image weiter.

bis bald
akari

Meinst du es so, funktioniert nicht kennt den Typen nicht muss ich noch einen
Header includieren?
Oder kann ich nicht besser gleich von TWinControll ableiten.

ich seh da auf anhieb mal ein paar Probleme :

#include <SysUtils.hpp>
#include <Controls.hpp>
#include <Classes.hpp>
#include <Forms.hpp>
class PACKAGE TDiagramm : public TComponent
{
private:
	TImage* Image;
     unsigned short VSampleTime;
     TWinControll *VParent;    	// Du brauchst einen Zeiger auf eine Instanz

     void __fastcall SetParent(TWinControl *NewParent); // Setter

protected:
public:
	void __fastcall Paint();
	__fastcall TDiagramm(TComponent* Owner);
__published:
	__property TWinControl *Parent={read = VParent,write=SetParent};  //wieder Pointer und fehlendes IstGleich, TWinControl falsch geschrieben
     __property unsigned short SampleTime ={read=VSampleTime,write=VSampleTime};

};

und dazu in der Implementation

void __fastcall TDiagramm::SetParent(TWinControl *NewParent)
{
  if (Image) Image->Parent = NewParent;
  VParent = NewParent;
  }

// Im Konstruktor noch hinzufügen
  VParent = NULL;

/Edit : Ich würde die Eigenschaft auch nicht nur Parent nennen, damit es nicht mit dem Parent von echten Controls verwechselt wird.

bis bald
akari

//---------------------------------------------------------------------------
__fastcall TDiagramm::TDiagramm(TComponent* Owner)
	: TComponent(Owner)
{
     Image    = new TImage(this);
     Image->Parent = ((TWinControl*)Owner)->Parent;  //Parent des aufrufenden Objects
     Image->Visible = true;
     Image->Canvas->Brush->Color = clBlack;
     Image->Width = 100;
     Image->Height = 100;
     Image->Canvas->FillRect(Rect(0,0,100,100));
}

Object erzeugen

__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
	Diagramm = new TDiagramm(this);    //Object erzeugen
}

//---------------------------------------------------------------------------
__fastcall TDiagramm::TDiagramm(TComponent* Owner)
    : TComponent(Owner)
{
     Image    = new TImage(this);
     Image->Parent = (TWinControl*)Owner;  //Parent des aufrufenden Objects
     Image->Canvas->Brush->Color = clBlack;
     Image->Width = 100;
     Image->Height = 100;
     Image->Canvas->FillRect(Rect(0,0,100,100));
}

dann gehts.

ich öffne immer erst ein Testprojekt und dann die bpk Datei. Du musst aber darauf
achten im Testprojekt immer etwas zu ändern bevor du es neu startest, sonst
wird nicht die aktuelle Version deines Steuerelements eingebunden. also
am einfachsten auf der Form etwas verschieben.

100% klappt das aber leider wohl nicht immer. Ich habe eine grössere Ansammlung
von Steuerelementen. Wenn ich die neu kompiliere während ein anderes Projekt offen
ist, dann bekomm ich vom Kompiler einen Zugriffsfehler (Schutzverletzung)

Wie benutze ich diese TImage. Wie immer werde ich aus der BCB Hilfe wieder nicht schlau...Ich will ein hintergrundbild für mein Programm

Danke für euer hilfe ich mag euch alle schon jetzt