witam ma taki kod, i czy ktoś by mi mógł podpowiedzieć lub przerobić kod tak aby bez naciskania przycisku myszy obiekt poruszał sie wraz z myszą
void __fastcall TForm1::Button1MouseDown(TObject *Sender, TMouseButton Button,TShiftState Shift, int X, int Y)
{
ReleaseCapture();
SendMessage(Button1->Handle, WM_SYSCOMMAND, 0xF012, 0);
}