How do I check if my application has moved 3

[NeilP]

Does anyone know how to prevent a user dragging a form to a new position on the screen. Is there a way of locking the cordinates without having to get rid of the title bar?

If not, is there a way of detecting if your application has been dragged and dropped to a new position?

Thanks in advance
Neil P

 

[BobbaFet]

Hi NeilP,

What you do is you write the installation path to the directory and check it with "Application.ExeName;".

I hope this helps, BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

&quot;<beer brand> is like making love in a cano...
it's <f-word + ing> close to water !!!&quot;
- Monty Python's Flying Circus, 1969/70

 

[mikeEd]

Since TForm doesn't have an event handler for the form's movement, you have to manually trap the movement message yourself.

Declare a new method:

procedure FormMove(var Msg: TMessage); message WM_EXITSIZEMOVE;

(This method will execute everytime your window receives a WM_EXITSIZEMOVE message, which occurs after a resizing/moving of the form.)

Store the initial Top/Left values of your form on startup, and your FormMove method will just be:

procedure TForm1.FormMove(var msg: TMessage);
begin
        Form1.Left := initialLeftPos;
        Form1.Top := initialTopPos;
end;

This won't actually stop the form from being moved around, but as soon as the user releases the mouse button and stops dragging the form it will snap back to its original position.

 

[BobbaFet]

Sorry about that guys,

Guess i was drunk or sumptin'. Totally misread your
question. BobbaFet

Everyone has a right to my opinion.
E-mail me at caswegkamp@hotmail.com

http://cwcon.50megs.com/

&quot;<beer brand> is like making love in a cano...
it's <f-word + ing> close to water !!!&quot;
- Monty Python's Flying Circus, 1969/70