Вообщем, смотрите:
| Код |
__fastcall TEco::TEco(TComponent* Owner)
: TPanel(Owner)
{ //содержание этой функции
Height = 588; //нужно переместить...
Width = Height;
TImage *background = new TImage(this);
background->Parent = this;
background->Name = "Background";
background->Picture->LoadFromFile("Background1.bmp");
background->Height = this->Height;
background->Width = this->Width;
background->Left = 0;
background->Top = 0;
background->Proportional = true;
}
//---------------------------------------------------------------------------
namespace Eco
{
void __fastcall PACKAGE Register()
{
TComponentClass classes[1] = {__classid(TEco)};
RegisterComponents("Ecosystem", classes, 0);
}
}
class Ecosystem
{
public:
Ecosystem();
};
Ecosystem::Ecosystem()
{
//сюда!!!!
}
|
Спасибо! |