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

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

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

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

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

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

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