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

Вниз

Form   Найти похожие ветки 

← →
JLK   (2002-11-07 07:19) [0]

Можно ли как то передвигать форму не за заголовок, а за Panel?

---

← →
KSergey ©   (2002-11-07 08:48) [1]

Яndex - найдется все. Прямо по вашему запросу.

---

← →
KoluChi ©   (2002-11-07 09:25) [2]

Поставь событие у компонента, за который хочешь передвигать форму.
procedure TMainForm.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
ReleaseCapture;
perform(WM_SysCommand, $F012, 0);
end;
P.S. Люди, читайте FAQи!!!

---

← →
McSimm ©   (2002-11-07 10:15) [3]

другой вариант - обрабатывать сообщение WM_NCHITTEST.
(более громоздкий, но, IMHO, более правильный)

---

← →
Сахаров Сергей   (2002-11-07 13:01) [4]

А ещё правильней сделать так:
Обработчик OnLButtonDown:
begin
ReleaseCapture;
SendMessage(Handle,WM_SYSCOMMAND, SC_MOVE + HTCAPTION, 0);
end;

---

← →
KoluChi ©   (2002-11-07 13:48) [5]

SC_MOVE + HTCAPTION = $F012

---

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

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

Наверх

Память: 0.47 MB
Время: 0.016 c