マウス移動アクションへの応答
マウスへの応答 への移動
OnMouseMove イベントは、ユーザーがマウスを動かすと、定期的に発生します。このイベントは、ユーザーがボタンを押した際にマウス ポインタの下にあるオブジェクトで発生します。これにより、マウスが動くにつれ、一時的な線を描画するなど、ユーザーに動作途中のフィードバックを渡すことができます。
マウスの移動に応答するには、OnMouseMove イベントのイベント ハンドラを定義します。この例では、mouse-move イベントを使用して、ユーザーがマウス ボタンを押し続けている間、フォーム上に途中の形状を描画して、ユーザーにフィードバックを提供します。OnMouseMove イベント ハンドラは、フォーム上の OnMouseMove イベントの位置に線を描画します。
procedure TForm1.FormMouseMove(Sender: TObject;Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Canvas.LineTo(X, Y);{ draw line to current position }
end;
void __fastcall TForm1::FormMouseMove(TObject *Sender, TMouseButton Button,
TShiftState Shift, int X, int Y) {
Canvas->LineTo(X, Y); // draw line to current position
}
このコードにより、フォーム上でマウスを移動させると、マウスが押される前でもマウスの動きに合わせて線が描画されます。
mouse-move イベントは、マウス ボタンが押されていないときでも発生します。
マウス ボタンが押されているかを追跡したい場合には、フォーム オブジェクトにオブジェクト フィールドを追加する必要があります。