WM_ENTERSIZEMOVEを送信するには？あなたがあなたの人生で見てきたif文

Question

は

私はWM_MOVE

procedure TForm15.WMMove(var Message: TMessage); 
begin 
if((((TWMMove(Message).XPos + Self.Width >= Form14.Left) and (TWMMove(Message).XPos <= Form14.Left)) or 
    ((TWMMove(Message).XPos <= Form14.Left + Form14.Width) and (TWMMove(Message).XPos >= Form14.Left))) and 
(((TWMMove(Message).YPos + Self.Height >= Form14.Top) and (TWMMove(Message).YPos <= Form14.Top)) or 
    ((TWMMove(Message).YPos <= Form14.Top + Form14.Height) and (TWMMove(Message).YPos >= Form14.Top)))) 
then begin 
    Self.DragKind := dkDock; 
end else Self.DragKind := dkDrag; 
end; 

に呼び出され、次のコードを持っていることは、おそらく最も醜いですが、それは問題ではありません。 :)

現在のフォーム（Self）がmainForm（Form14）のどこかにある場合、DragKindを変更することになっています。それはdkDockにDragKindを設定すると

しかし、それはユーザーがフォームを移動を停止しない限り、currentForm（セルフ）ドッキング可能を作成し、それを再び移動を開始するので、私は次のことをやろうとしているされていません。

上記のステートメントからの結果がゼロ以外であるとdkDockは、その後、フォームに次のメッセージを送信する設定されている場合：//は

WM_ENTERSIZEMOVEが//しかし再び

移動を開始フォームを移動を停止

WM_EXITSIZEMOVE 、私どのように行うのか分からない：

SendMessage(Self.Handle,WM_EXITSIZEMOVE,?,?); 

は私がランダムパラメータ（1,1）が、正しい方法ではないのですがないeffect.Maybeを使用してみましたか？

Answer 1

2つのメッセージが通知であるようです。直接送信すると、おそらく何もしません。 Raymond Chenがかつて言いましたように（恐ろしく言い換えれば）、直接これらのメッセージを送って行動を期待するのは、針をゲージに動かすことによってガスタンクを補充しようとするようなものです。

WM_SIZINGとWM_MOVINGは、ウィンドウのサイズと位置を変更してさらに変更をブロックするユーザーを監視するために使用できるメッセージです。 MSDNから

：画面座標における ウィンドウの現在位置とRECT構造 に

lParamに

ポインタ。 にドラッグすると、 の四角形の位置が変更されます。アプリケーションは、この構造体のメンバーを に変更する必要があります。

メンバーを変更すると、強制的にウィンドウを1つの位置に保持できます。

Answer 2

これは通知メッセージです。が原因で、フォームの移動が中止されます。
両方のパラメータは無視されます（未使用）。