obsługa myszka

[en_6280]

Witam mam kolejny problem Mianowicie chciałbym aby po kliknięciu na Shape1 ten podążał za myszką (kursorem). Próbował z zmienna TPoint pozycja
i dałem w on clik na shape1 GetCursorPos(pozycja.x , pozycja.y) ale wywala mi błąd Proszę o pomoc

[Cyfrowy Baron]

Nie wiem jakiego obiektu TShape używasz, ale u mnie obiekt TShape znajdujący się na zakładce Additional nie posiada zdarzenia OnClick, dlatego zamiast zdarzenia OnClick posłużyłem się zdarzeniem OnMouseUp. Samo przesuwanie obiektu Shape1 po formularzu jest proste, wystarczy umieścić odpowiedni kod w zdarzeniu OnMouseMove formularza:

Kod: Zaznacz cały

bool move = false;

void __fastcall TForm1::Shape1MouseUp(TObject *Sender, TMouseButton Button,
     TShiftState Shift, int X, int Y)
{
if(!move) // jedno kliknięcie uaktywnia przesuwanie, drugie je dezaktywuje
  move = true;
else
  move = false;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormMouseMove(TObject *Sender, TShiftState Shift,
      int X, int Y)
{
if(move)
{
  Shape1->Left = X - (Shape1->Width/2); //  (Shape1->Width/2) - to po to, żeby kursor myszy wypadaÅ‚ w Å›rodku obiektu Shape1
  Shape1->Top = Y - (Shape1->Height/2); // (Shape1->Height/2) - to po to, żeby kursor myszy wypadaÅ‚ w Å›rodku obiektu Shape1
}
}
//---------------------------------------------------------------------------