Как переместить компонент на форме?

Чтобы можно было перемещать указателем мыши компоненты внутри формы можно воспользоваться системными командами. Разместим на форме, например, кнопку Button и в её событиях OnMouseMove пишем следующий код:

const int SC_DRAGMOVE=61458; //0xF012;
ReleaseCapture();
((TControl *)Sender)->Perform(WM_SYSCOMMAND,SC_DRAGMOVE,0);

Так можно поступить и с другими компонентами.

Подготовил материал

Табаков Юрий

Программист

Автор и редактор проекта CuBook.PRO. Главная задача, которую я ставлю перед собой – донести до начинающих программистов удобочитаемый материал. Буду рад выслушать замечания и предложения. Не забываем ставить оценки и делать репосты =)