マウス操作でウインドウを移動させる

■使用するAPI関数

■ソースは下記のようになります。

■マウス操作でウインドウを移動させる処理
procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;Shift: TShiftState; X, Y: Integer);
begin

　//マウス左ボタンが押されているとき
　If ssLeft in Shift then
　begin
　　//マウスキャプチャを解放する
　　ReleaseCapture;

　　//Form1をドラッグせよという命令を送る
　　SendMessage(Form1.Handle, WM_NCLBUTTONDOWN, HTCAPTION,0);

　end;

end;




Win32APIのページへ



ホーム PV ランキング