image двигается как курсор

[Karazon]

нужно чтобы картинка двигалась параллельно курсора по форме. я поставил таймер и написал туда

if ((ScreenToClient(Mouse->CursorPos).x==Image1->Left+25)||(ScreenToClient(Mouse->CursorPos).x<Image1->Left+25) )
Image2->Left=Image1->Left;
else
if ((ScreenToClient(Mouse->CursorPos).x==Image1->Left+810)||(ScreenToClient(Mouse->CursorPos).x>Image1->Left+810) )
Image2->Left=Image1->Left+810;
else
Image2->Left = ScreenToClient(Mouse->CursorPos).x-25;

картинка двигается и не выходит за форму но при движение она моргает как избавится от моргания?

[waleri]

https://en.wikipedia.org/wiki/Multiple_buffering

[Аватар]

А чего не привязать к WM_MOVE или OnMouseMove? И таймера не надо

[waleri]

Эти события будут приходить только когда курсор в своем окне а через таймер можно следить за курсором по всему экрану.

Другое дело, что именно требуется...

[Аватар]

нужно чтобы картинка двигалась параллельно курсора по форме

Как бы намекает

[Karazon]

Сообщение от Аватар

А чего не привязать к WM_MOVE или OnMouseMove? И таймера не надо

я попробывал OnMouseMove на форму OnMouseMove поставить и вписать код картинка не двигается так как на форме находится фоновая картинка если у неё поставить OnMouseMove то всё равно картинка при движение моргает и если зайти курсором на кнопку картинка останавливается, а WM_MOVE я не знаю как через это сделать

[sklees]

Архив с исходником (на Delphi c exe-файлом)
animate.rar

можно применить функцию API

BitBlt(Canvas->Handle, 0, 0, ClientWidth, ClientHeight,
         BackGnd1->Canvas.Handle, 0, 0, SRCCOPY);

тогда изображение параллельно мыши не мигает на клиентском изображении формы а как через это сделалось я не знаю

[sklees]

как-то-так

TRect *OldMouseBounds;
TRect *MouseBounds;
Graphics::TBitmap *FonImage1;
Graphics::TBitmap *FonImage2;
Graphics::TBitmap *MouseImage;

//---------------------------------------------------------------------------
void __fastcall TForm1::FormCreate(TObject *Sender)
{
MouseImage = new Graphics::TBitmap;
MouseImage->LoadFromResourceName((int)HInstance, "IM101");
FonImage1 = new Graphics::TBitmap;
FonImage1->LoadFromResourceName((int)HInstance, "IM102");
FonImage1->SetSize(Form1->Width, Form1->Height);
FonImage2 = new Graphics::TBitmap;
FonImage2->SetSize(Form1->Width, Form1->Height);
FonImage2->Assign(FonImage1);
//-----
MouseBounds = new TRect;
MouseBounds->Left = 0;
MouseBounds->Top = 0;
MouseBounds->Right = MouseImage->Width;
MouseBounds->Bottom = MouseImage->Height;
//
OldMouseBounds = new TRect;
OldMouseBounds->Left = 0;
OldMouseBounds->Top = 0;
OldMouseBounds->Right = MouseImage->Width ;
OldMouseBounds->Bottom = MouseImage->Height;
//
Application->OnIdle = IdleLoop;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IdleLoop(TObject*, bool& done)
{
	done = false;
	DrawMouseImage();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::DrawMouseImage()
{
 OldMouseBounds->Left = MouseBounds->Left;
 OldMouseBounds->Top = MouseBounds->Top;
 //
 MouseBounds->Left = ScreenToClient(Mouse->CursorPos).x;
 MouseBounds->Top = ScreenToClient(Mouse->CursorPos).y;
 //-----
 BitBlt(FonImage2->Canvas->Handle, OldMouseBounds->Left, OldMouseBounds->Top, OldMouseBounds->Right, OldMouseBounds->Bottom,
		   FonImage1->Canvas->Handle, OldMouseBounds->Left, OldMouseBounds->Top, SRCCOPY);
 BitBlt(FonImage2->Canvas->Handle, MouseBounds->Left, MouseBounds->Top, MouseBounds->Right, MouseBounds->Bottom,
		   MouseImage->Canvas->Handle, 0, 0, SRCCOPY);
 BitBlt(Form1->Canvas->Handle, OldMouseBounds->Left-2, OldMouseBounds->Top-2, OldMouseBounds->Right+2, OldMouseBounds->Bottom+2,
		   FonImage2->Canvas->Handle, OldMouseBounds->Left-2, OldMouseBounds->Top-2, SRCCOPY);
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormPaint(TObject *Sender)
{
 BitBlt(Form1->Canvas->Handle, 0, 0, FonImage1->Width, FonImage1->Height,
		   FonImage1->Canvas->Handle, 0, 0, SRCCOPY);
}
//---------------------------------------------------------------------------