Привет всем!
сегодня столкнулся с проблемой
тема ранее : http://community.develstudio.ru/show...81%D1%82%D0%B2
скажите пожалуйста , почему объект не появляется на форме?
сегодня столкнулся с проблемой
тема ранее : http://community.develstudio.ru/show...81%D1%82%D0%B2
PHP код:
Class Test Extends TScrollBox
{
Public $class_name_ex = __CLASS__;
Private $Shape;
Public Function __construct($owner = nil, $init = True, $self = nil)
{
parent::__construct($owner, $init, $self);
IF ($init)
{
$this->W = 600;
$this->H = 250;
$this->AutoSize = False;
$this->AutoScroll = False;
$this->BorderStyle = bsNone;
$this->Color = clWhite;
$this->Shape = New TShape;
$this->Shape->Parent = $this;
$this->$Shape->X = $this->Position;
$this->Shape->Y = 0;
$this->Shape->W = 50;
$this->Shape->H = 50;
}
}
Public Function __Set($Name, $Value)
{
IF ($Name == 'Position' || $Name = 'position')
{
$this->Shape->X = $Value;
}
Else
{
$this->$Name = $Value;
}
}
}
$New = New Test;
$New->Parent = c("Form1");