Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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 вся ветка

Форум: "Основная";
Текущий архив: 2003.03.06;
Скачать: [xml.tar.bz2];

Наверх

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