Make a form unmovable

[vincentw56]

What is the best way to make a form unmovable. I have an MDI app. When I call a child window, I want it to be centered (which is not a problem), but I want it to be stationary and not have the user be able to move it. Thanks.

Vincent

 

[footpad]

Vincent,

The easiest way I've found is to remove the Move command from the Menu. Here's a crude way to do this:

procedure TForm1.FormCreate(Sender: TObject);
var
   h : HMenu;
begin
   h := getSystemMenu( Handle, FALSE );
   DeleteMenu( h, 1, MF_BYPOSITION );
end;

Now, I call this crude because it removes the command entirely (when you really should disable the command instead of removing it) and there's nothing verifying that the second command on the form's System menu is the Move command.

However, it does prevent the form from being moved.

Parenthetically, I should mention that I ususally don't like this sort of behavior in an application, for it overrides basic functionality most users expect. Thus, I would caution you to use this sparingly.

I'm sure there's a good reason why you want to do this, but
I would ask you to think twice before distributing an application that works significantly differently than any other Windows application your user's work with.

Hope this helps...

-- Lance

 

[richardchaven]

Are you using this window to show progress? If so, you can have a non MDI-child form and use ShowModal on it.

Cheers