Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Вниз
Ограничить области в которой возможно перемещение формы Найти похожие ветки
← →
AlexanderSK (2003-02-12 13:32) [0]Подскажите пожалуйста возможно ли при перемещении формы ограничить область в которой пользователь может ее перемещать?
т.е. (y1 < form.top < y2) and (x1 < form.left < x2)
Заранее благодарен!
← →
AlexanderSK (2003-02-12 13:59) [1]А вообще-то это реализовать возможно? Или лучше и не надеяться?
← →
Radionov Alexey (2003-02-12 13:59) [2]
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;
← →
Radionov Alexey (2003-02-12 14:08) [3]Но такой вариант красивее (не портится форточка при езде):
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;
Понтяно, что аналогично можно секвестировать и остатние степени свободы ;)
← →
Radionov Alexey (2003-02-12 14:32) [4]И, наконец, законченный вариант:
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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.02.24;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c
