- TMainForm = class(TForm)
- ...
- protected
- procedure WMMove(var Msg: TWMMove); message WM_MOVE;
- end;
- implementation
- procedure TMainForm.WMMove(var Msg: TWMMove);
- begin
- inherited;
- Caption := IntToStr(Msg.XPos) + ' <> ' + IntToStr(Msg.YPos);
- end;