так вот тут и начинается самое интересное
при инициализации процедуры
Код:
procedure drag_Terminal(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
и её использовании
Код:
procedure Tfrm_Main.drag_Terminal;
begin
(sender as TGroupBox ).left := X;
(sender as TGroupBox ).top := Y;
end;
Не работает перетаскивание мышью.
Насколько я помню параметры X и Y не нужно передавать в процедуру и они автоматически будут получены от координат мыши.
Но , могу и ошибаться