Перетаскивание кнопки

[moff]

Подскажите пожалуйста, как реализовать перетаскивание кнопки по форме?

[Vitek-pm]

http://programmersforum.ru/showthrea...E6%E5%ED%E8%E5

только там перетаскивание PictureBox а по форме. Переделать не сложно :-)

[moff]

я читал это, там для визуал, а мне нужно в буилдере. Пробовал переделывать под буилдер - ничего не вышло

[Vitek-pm]

int flag_x, flag_y;

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        flag_x = -1;
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
flag_x = X;
flag_y = Y;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseUp(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
flag_x = -1;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1MouseMove(TObject *Sender,
      TShiftState Shift, int X, int Y)
{
if (flag_x!=-1)
{
        POINT mouse_pos;
        GetCursorPos(&mouse_pos);
        Button1->Left = (int)mouse_pos.x-Form1->Left-flag_x;
        Button1->Top = (int)mouse_pos.y-Form1->Top-flag_y;
}
}

-рабочий код, но здесь надо ещё чуть-чуть доделать - мышка не совсем на кнопке оказывается, надо к Button1->Top прибавить ещё высоту заголовка окна

[moff]

спасибо больше