Текущий архив: 2006.09.17;
Скачать: CL | DM;

Вниз

Перемещение формы   Найти похожие ветки 

← →
Damager   (2006-05-18 21:59) [0]

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

---

← →
sicilla ©   (2006-05-18 22:41) [1]

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

---

← →
parovoZZ ©   (2006-05-18 22:57) [2]

На апях MoveWindow

---

← →
GrayFace ©   (2006-05-19 10:30) [3]

WM_MOVING

---

← →
Игорь Шевченко ©   (2006-05-19 10:45) [4]

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.

---

Страницы: 1 вся ветка

Текущий архив: 2006.09.17;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.032 c