Скачать: CL | DM;

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

← →
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;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.011 c