Форум: "Основная";
Текущий архив: 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.44 MB
Время: 0.009 c