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

Перетаскивание окна(формы)   Найти похожие ветки 

← →
Bers01   (2004-01-20 16:30) [0]

Добрый вечер УВАЖАЕМЫЕ МАСТЕРА!
Может поделится кто опытом, а еще лучше примерчиком:
Нужно чтобы окно(форма) перетаскивалось не только за заголовок, а за любую область(внутри окна), на которой его схватили.
Пробовал через MoveWindow(...) на onMouseMove, но при перемещении изображение сильно дергается. Подскажите кто знает.

С Уважением, Андрей.

---

← →
easy ©   (2004-01-20 17:08) [1]

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;  
 Shift: TShiftState; X, Y: Integer);  

begin  
ReleaseCapture();  
SendMessage(form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION, 0);  
end;

---

← →
Bers01   (2004-01-20 17:28) [2]

Спасибо!

---

← →
Diamond Cat ©   (2004-01-20 21:48) [3]

2 easy ©
А не проще result от wm_ncbuttondown ставить в htcaption

---

← →
Prov ©   (2004-01-22 08:11) [4]

Я делал так:
обработать WM_NCHITTEST ??? +HT_CAPTION(точно не помню)

---

← →
Thick   (2004-01-22 12:23) [5]

В MouseDown вставляеш SendMessage(wnd,WM_SYSCOMMAND, $F012, 0);

---

← →
TUser ©   (2004-01-22 17:02) [6]

> HT_CAPTION(точно не помню)

Msg.Result:=htCaption

---

← →
LukSerg   (2004-01-22 18:39) [7]

procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const  SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

---

← →
LukSerg   (2004-01-22 18:39) [8]

procedure Form1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
 Shift: TShiftState; X, Y: Integer);
const  SC_DragMove = $F012;  { a magic number }
begin
ReleaseCapture;
perform(WM_SysCommand, SC_DragMove, 0);
end;

---

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

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



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