Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

11th
Сен

Перетаскивание формы за любой объект, находящийся на ней

Posted by maloy under Delphi, Архив

Романнн

Столкнулся с проблемой: при установке свойств формы dragkind: drag, при срабатывании функции form.begindrag(false); приложение закрывается громко матерясь…..при установке свойства dragkind: dock, все проблемы исчезают…
Как правильно настроить?

_Dmitry

Для каждого объекта, за которые планируешь таскать форму, в событие OnMouseDown добавь ссылку на процедуру:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;

Shift: TShiftState; X, Y: Integer);

const

SC_DragMove = $F012;

begin

ReleaseCapture;

Form1.perform(WM_SysCommand,SC_DragMove,0);

end;

тема на форуме от 2007 года