Движение компонента TImage.

[Averon]

Здравствуйте. Нужна помощь в реализации движения компонента TImage.
В программе есть класс. У каждого объекта класса есть свои параметры, в т.ч указатель на TImage компонент, создаваемый динамически.
При попытке изменения параметров Top и Left выдаёт ошибку.

Есть ли другой способ организации движения компонента, если да, то какой? Или я что-то не правильно делаю?

Ошибка:

[An1ka]

Значит не правильно создавался у вас компонент ! Выложите код создания компонента и где происходят изменения Top и Left.

[Averon]

Код функции вызываемой в конструкторе объекта класса:
void SetImg(int k,int x,int y,int w,TImage *image)
{
AnsiString Fpath="K:\\Projects\\p\\ball"; AnsiString Fr;
image=new TImage(Form1);
image->Parent=Form1;
image->Transparent=true;
image->Top=y;
image->Left=x;
image->Height=w;
image->Width=w;
Fr=Fpath+IntToStr(k)+".bmp";
image->Picture->LoadFromFile(Fr);
image->Visible=true;
image->Enabled=true;
}
------------------------------------------------------------------
Код функции для движения. X и Y-целые. kx,ky -целые. ax,ay-double.
void Dot::fly(int i,Dot *K[10],Rectn*R)
{
..................
..................
..................
X=X+kx*ax;
Y=Y+ky*ay;
img->Top=Y;
img->Left=X;
}

[An1ka]

И сразу видно ошибку
Вы передаете указатель в функцию, а потом его меняете там. Но в функцию передается копия указателя ! И меняется так же копия указателя. Если вы хотите изменить указатель, то этот указатель передавать через другой указатель или через ссылку.

Передача указателя через ссылку так:

void SetImg(int k,int x,int y,int w,TImage *&image)

[Averon]

Спасибо большое, позабыл