Текущий архив: 2008.07.20;
Скачать: CL | DM;

Вниз

перемещение кнопки   Найти похожие ветки 

← →
DFT   (2008-06-18 13:53) [0]

Здравствуйте!
Как в режиме Run-time перемещать кнопку (ее изображение, а не контур) с помощью курсора мыши по форме?
Заранее спасибо.

---

← →
Rouse_ ©   (2008-06-18 14:09) [1]

procedure TForm3.Button1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
begin
 ReleaseCapture;
 SendMessage(Button1.Handle, WM_SYSCOMMAND, SC_MOVE or HTCAPTION, 0);
end;

---

← →
Dennis I. Komarov ©   (2008-06-18 14:11) [2]

Менять ее координаты относительно движения мыши

---

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

Текущий архив: 2008.07.20;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.041 c