Передвигать обьект мышкой

← →
Fenix_ (2003-04-14 04:10) [0]

Привет Мастера! У меня такой вопрос, я хочу двигать кнопку мышкой , подскжите плиз как делать. Буду очень признателен за полуготовый кусок кода. Заранее спасибо всем отклинувшимся.

← →
Hooch © (2003-04-14 06:32) [1]

procedure TForm1.BitBtn1MouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin
ReleaseCapture;
SendMessage(BitBtn1.Handle,WM_SYSCOMMAND,$F012,0);
end;

Передвигать обьект мышкой Найти похожие ветки