OnFormMove event 2

[Roderich]

hi,

I want to react to form move action when the user clicks on a form's caption and moves the form.
Unfortunately Delphi doesn't offer an event for this (forms's OnMouseDown is not called when clicking on the caption).

Anybody got an idea how ?

wbR
Roderich

 

[EricDraven]

Create a procedure under the private headings of your form code with the other procedures like this

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

and then enter the procdure code as you would normally, like this.

procedure TForm1.FormMove(var msg: TMessage);
begin
ShowMessage('Hey look, my forms moving');
end; Arte Et Labore

 

[Roderich]

thanks a lot, Eric

actually WM_EXITSIZEMOVE gives me just a message when releasing mouse button after moving, but I found another message WM_MOVING in this group that does the job.

wbr
Roderich