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

Такой вопрос по перетаскиванию формы за клиентскую обл.   Найти похожие ветки 

← →
DimC ©   (2003-02-18 12:10) [0]

Делаю перетаскивание формы через форточное сообщение WM_NCHITTEST
перестают работать кнопки SpeedButton. В чем тут дело?

---

← →
Игорь Шевченко ©   (2003-02-18 12:46) [1]

Не так делаешь....

---

← →
maxim2 ©   (2003-02-18 12:59) [2]

Делай так

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
SC_DragMove = $F012;
begin
ReleaseCapture;
Perform(WM_SysCommand, SC_DragMove, 0);
end;

---

← →
DimC ©   (2003-02-24 18:07) [3]

Так я тоже делал, кнопки работают, но форма не перемещается

---

← →
Юрий Зотов ©   (2003-02-24 18:35) [4]

> перестают работать кнопки SpeedButton. В чем тут дело?

В том, что SpeedButton - это всего лишь рисунок на форме.
Добавьте проверку:

if ControlAtPos(...) = nil then
Message.Result := HTCAPTION
else inherited

---

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

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



Память: 0.45 MB
Время: 0.01 c