| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ограничить области в которой возможно перемещение формы

AlexanderSK ©   (2003-02-12 13:32:00) 

Подскажите пожалуйста возможно ли при перемещении формы ограничить область в которой пользователь может ее перемещать?
т.е. (y1 < form.top < y2) and (x1 < form.left < x2)

Заранее благодарен!

---

Radionov Alexey   (2003-02-12 14:32:00) [1]

И, наконец, законченный вариант:

Procedure TForm1.OnMovingForm(Var Msg: TMessage);
Procedure Restrict(Var Rect: TRect; Const Dest: TRect);
Function Split(A: Integer): Integer;
Begin
If A > 0 Then Result := A Else Result := 0;
End;
Begin
With Rect Do
Begin
OffsetRect(Rect, Split(Dest.Left - Left), Split(Dest.Top - Top));
OffsetRect(Rect, - Split(Right - Dest.Right), - Split(Bottom - Dest.Bottom));
End;
End;
Begin
Restrict(TRect(Pointer(Msg.LPARAM)^), Rect(100, 100, 1000, 800)); // 100,100,1000,800 - прямоугольник за который не рекомедуется вылазить форме
End;


---

Radionov Alexey   (2003-02-12 14:08:00) [2]

Но такой вариант красивее (не портится форточка при езде):

procedure TForm1.OnMovingForm(var MSG: TMessage);
begin
With TRect(Pointer(Msg.Lparam)^) do
if Left<100 then
begin
right := 100 + Right-Left;
Left := 100;
end;
end;

Понтяно, что аналогично можно секвестировать и остатние степени свободы ;)

---

AlexanderSK   (2003-02-12 13:59:00) [3]

А вообще-то это реализовать возможно? Или лучше и не надеяться?

---

Radionov Alexey   (2003-02-12 13:59:00) [4]


type
TForm1 = class(TForm)
private
{ Private declarations }
procedure OnMovingForm(Var MSG : TMessage); message wm_Moving;- обрабатываем перемещение
public
{ Public declarations }
end;
...............................

procedure TForm1.OnMovingForm(var MSG: TMessage);
begin
// Если поехали слишком далеко налево, то жмем стоп-кран
With TRect(Pointer(Msg.Lparam)^) do if Left<100 then Left := 100;
end;



---

Наверх