Form locken (Verschieben nicht möglich)

[Nalincah]

Ist es irgendwie möglich, das man eine Form nicht verschieben kann. Abgesehen von Form1.BorderStyle := bsNone; ????

[thomasdrewermann]

Hi,
schau mal in der DELPHI-LIBRARY nach. schützen

MFG
Thomas

[Mirilin]

Delphi-Quellcode:

...
private
     procedure WMNCHitTest(var M: TWMNCHitTest); message wm_NCHitTest;
...
procedure TForm1.WMNCHitTest(var M: TWMNCHitTest);
begin
  inherited;
  if M.Result = htCaption then
    M.Result := 0;
end;

Das hat aber vielleicht irgendwelche Nebenwirkungen...