Form locken (Verschieben nicht möglich)

[Nalincah]

Ist es irgendwie möglich, das man eine Form nicht verschieben kann. Abgesehen von

Delphi-Quellcode:

Form1.BorderStyle := bsNone;

????

[thomasdrewermann]

Hi,
schau mal in der DELPHI-LIBRARY nach. [cl]schützen[/cl]

MFG
Thomas

[Mirilin]

:hi:

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...