перемещение формы

[Черничный]

Ребята, есть форма. надо запретить ее перемещение мышкой, но программно left и top может меняться? Возможно?

[Dux]

Установите Form1.BorderStyle:=bsNone;
Мышкой точно двигать не сможете

[Черничный]

нет нет, такого не надо.

[Dj_smart]

procedure freeze;
begin
  oldx:=form1.left;oldy:=form1.top;
  form1.timer1.enabled:=true;
end;

procedure antifreeze;
begin
  form1.timer1.enabled:=false;
end;

на Ontimer (частота 1 ms вначале выключен):

  x:=form1.left;y:=form1.top;
  if oldx<>x then x:=oldx;
  if oldy<>y then y:=oldy;
  oldx:=form1.left;oldy:=form1.top;

на OnShow формы

freeze;

и применение:

если надо изменить, то

antifreeze;
form1.left:=..
form1.top:=...
freeze;

[alexBlack]

Все-таки лучше без таймера:

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
     FDisableChange : boolean;
  protected
     procedure WMWINDOWPOSCHANGING(var Message: TWMWINDOWPOSCHANGING); message WM_WINDOWPOSCHANGING;
  public
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMWINDOWPOSCHANGING(var Message: TWMWINDOWPOSCHANGING);
begin
   if FDisableChange then begin
      message.WindowPos.flags := message.WindowPos.flags or SWP_NOMOVE or SWP_NOSIZE;
   end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   FDisableChange := false;
   width := 100;
   FDisableChange := true;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   FDisableChange := true;
end;

[Черничный]

А вообще есть такое просто запретить перемещение? Я где то давно давно находил такое, просто запретить, а не отлавливать и блокировать

[alexBlack]

   Form1.Constraints.MinHeight := 100;
   Form1.Constraints.MinWidth  := 100;
   Form1.Constraints.MaxHeight := 100;
   Form1.Constraints.MaxWidth  := 100;

На вопрос в следующем посте (#8):
Программно изменять меняя Constraints, а не width/height

procedure TForm1.Button1Click(Sender: TObject);
begin
 Form1.Constraints.MinHeight := 200;
 Form1.Constraints.MinWidth  := 200;
 Form1.Constraints.MaxHeight := 200;
 Form1.Constraints.MaxWidth  := 200;
end;

[Dj_smart]

А программно тогда как двигать?
Есть вариант поставить Form1.BorderStyle:=bsNone и "нарисовать" рамки своей формы. Может так и легче будет? Я например обходился 2 image'ми (1-полоска формы, ширина - 1, но разтянута при помощи streech. а 2- кнопка "х") и одним shape'ом, которым отображал рамки формы. Может так и проще.
---------------------
Извеняюсь, недочитал
AlexBlack прав.

[Stilet]

нет нет, такого не надо.

Почему? Это лучшее решение, ли автор чего-то недоговаривает.

[JTG]

Тю, проблема )))
Поймать WM_NCHITTEST и если кликнули по заголовку - сказать приложению, что ему это почудилось

TForm1 = class(TForm)
  private
    { Private declarations }
    procedure noMovePlease(var Message: TMessage); message WM_NCHITTEST;
  public
    { Public declarations }
  end;
...............................
procedure TForm1.noMovePlease(var Message: TMessage);
begin
  inherited;
  with Message do
   if Result = HTCAPTION then Result := HTNOWHERE;
end;

Учитесь искать максимально простые решения, а то чуть что - таймеры, какие-то boolean-переменные, жуть