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

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

Перемещение формы [D7, WinXP]

Damager ©   (2006-05-18 21:59:00) 

Как ограничить перемещение формы по экрану.
К примеру чтобы left > 100.

---

Игорь Шевченко   (2006-05-19 10:45:00) [1]

unit main;

interface

uses
 Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;

type
 TForm1 = class(TForm)
 private
   procedure WMWindowPosChanging (var Message: TMessage);
     message WM_WINDOWPOSCHANGING;
 end;

var
 Form1: TForm1;

implementation

{$R *.DFM}

{ TForm1 }

procedure TForm1.WMWindowPosChanging(var Message: TMessage);
begin
 with PWindowPos(Message.lParam)^ do begin
   if x < 100 then
     x := 100;
 end;
end;

end.

---

GrayFace   (2006-05-19 10:30:00) [2]

WM_MOVING

---

parovoZZ   (2006-05-18 22:57:00) [3]

На апях MoveWindow

---

sicilla   (2006-05-18 22:41:00) [4]

сделай обработку на форме mousemove с проверкой условия на место, например
if form1.left < 100 then form1.left = 100

---

Наверх