Delphi-Quellcode:
type
TForm1 = class(TForm)
private
procedure WMExitSizeMove(var Msg: TMessage); message WM_EXITSIZEMOVE;
//...
implementation
//...
procedure TForm1.WMExitSizeMove(var Msg: TMessage);
begin
ShowMessage('Ich wurde verschoben :-)');
end;
Wenn du die Positionen schon während des verschiebens aktualisieren willst, musst du stattdessen folgendes nehmen:
procedure FormMoved(var Msg: TWMMove);message WM_Move;
Mfg