void __fastcall TForm1::Timer1Timer(TObject *Sender)
{ TPoint P;
GetCursorPos(&P);
if (Image1->Left>Screen->Width-Image1->Width){
if (P.x>Screen->Width/2)
Image1->Left=Image1->Left-5; }
if (Image1->Left<0){
if (P.x<Screen->Width/2)
Image1->Left=Image1->Left+5;}
}
Передвижение картинки
Код:
Код:
Form1->DoubleBuffered = true;
Спасибо большое. Всё норм, только появился ещё один вопрос ) Можно ли избавиться от такого явления как небольшие рывки при движении картинки ?