A
So, nun zur Klasse. Ich versuch mal Starthilfe zu geben:
class PACKAGE TMyGroup : public TGroupBox // Wenns ne Kompo werden sol muss PACKAGE davor, damit die Kompo aus dem Package geladen werden kann
{
private:
TLabel *Label1; // Hab mal nur das Label dringelassen
//TButton *Button1;
//TEdit *edit1;
//TListBox *ListBox1;
void __fastcall MyButtonClick(TObject *Sender);
void __fastcall SetLabel(TLabel* ALabel){Label1=ALabel;}
TLabel* __fastcall GetLabel(){return Label1;}
public:
__fastcall TMyGroupBox(TComponent *Owner)
{
Label1=new TLabel(this);
Label1->Name="Label"; // wichtig für die Regristrierung als SubComponent, da es da ein Bug gibt, der von Borland nohc nicht gefixt wurde..
Label1->Parent=this;
Label1->SetBounds(10,10,100,20);
Label1->Caption="Hallo";
Label1->SetSubComponent(true); // sorgt dafür, dass die Kompo als Sub- Komponente regristriert wird.
};
__fastcall ~TMyGroupBox(){delete Label1;}
__published: // Der Bereich, welcher später in Objektinspector erscheint. Wenn keine Kompo kannste auch public nehmen.
__property TLabel* Label={read=GetLabel,write=SetLabel};
};
ungetestet....
Ansonsten siehe Signatur...