рад, что тебе помог мой код 
переходим ко вротой фазе создания игры - перетаскивание шашек.. думаю, на этом этапе для тебя это слишком сложно и придется упростить ситуацию, либо, если тебя это устроит, перетаскивать будем не шашку, а ее контур..
упростить ситуацию можно следующим образом: указывать шашку, которая должна сделать ход, и указать место, куда она должна переместиться.. здесь придется обрабатывать событие OnClick, расчитывать координаты, определять допустимость хода..
второй вариант, основывается на обработке трех событий: OnMouseDown, OnMouseMove и OnMouseUp.. сначала при щелчке мы (OnMouseDown) определяем начальное положение объекта (x0,y0) и объявляем, что происходит перемещение.. дальше автоматически срабатывает событие OnMouseMove, расчитвыаем положение объекта относительно (x0,y0).. в конце, при отпускании кнопки срабатывает событие OnMouseUp, где мы перерисовываем объект на новом месте и указываем, что перемещение должно быть завершено..
реализация должна выглядить примерно так:
| Код |
TRect r;
int x0, y0;
bool move=false;
void __fastcall TForm1::Image1MouseDown(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
if(Button!=mbLeft) return;
x0=X;
y0=Y;
r=((TControl*)Sender)->BoundsRect;
move=true;
}
void __fastcall TForm1::Image1MouseMove(TObject *Sender, TShiftState Shift,
int X, int Y)
{
if(!move) return;
Canvas->DrawFocusRect(r);
r.Left+=X-x0;
r.Right+=X-x0;
r.Top+=Y-y0;
r.Bottom+=Y-y0;
x0=X;
y0=Y;
Canvas->DrawFocusRect(r);
}
void __fastcall TForm1::Image1MouseUp(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y)
{
Canvas->DrawFocusRect(r);
((TControl*)Sender)->SetBounds(r.Left+X-x0,r.Top+Y-y0,((TControl*)Sender)->Width,((TControl*)Sender)->Height);
((TControl*)Sender)->BringToFront();
move=false;
}
|
примечание к коду: это не готовое решение!! конструкции типа: "r=((TControl*)Sender)->BoundsRect;" необходимо заменить на соответсвующие задаче действия.. но идея, надеюсь понятна.. удачи!! |
