Перемещение формы в Delphi

[Dissembler7]

Объясните пожалуста как запретить форме выходить за пределы экрана. Или скажите с какими событиями формы для этого нужно работать.

[VIK_aka_TOR]

собственно что бы Top и Left не были отрицательными... и в суме с длинной и шириной формы не выходили за пределы расширения монитора... события на перемещение формы нету (насколько мне известно) так что придется изощряться... к примеру таймером проверять удовлетворение выше изложенных условий...

[Dissembler7]

Пробовал с таймером - не то. Форма сильно дергается, а хотелось бы, что бы форму просто нельзя было двигать дальше предела экрана

[VIK_aka_TOR]

может из этого изощрившись что сделаете... поколдуете с событиями...

[СТРАННИК]

Открываем Delphi, создаем новый проект, после ключевого слова private пишем:

procedure WMMoving(var Msg: TWMMoving); message WM_MOVING;

Далее нажимаем комбинацию клавиш CTRL+SHIFT+C

Delphi создаст шаблон для нашей процедуры. Добавить в код недостающие строки:

procedure TForm1.WMMoving(var Msg: TWMMoving);
var
workArea: TRect;
begin
workArea := Screen.WorkareaRect;
with Msg.DragRect^ do
begin
if Left < workArea.Left then
OffsetRect(Msg.DragRect^, workArea.Left - Left, 0) ;
if Top < workArea.Top then
OffsetRect(Msg.DragRect^, 0, workArea.Top - Top) ;
if Right > workArea.Right then
OffsetRect(Msg.DragRect^, workArea.Right - Right, 0) ;
if Bottom > workArea.Bottom then
OffsetRect(Msg.DragRect^, 0, workArea.Bottom - Bottom) ;
end;
inherited;
end;