无边框窗体随鼠标移动

主要用到两个API函数：ReleaseCapture()和SendMessage().

ReleaseCapture用来释放被当前线程中某个窗口捕获的光标。

SendMessage是向指定的窗体发送消息。

在窗体的MouseDown事件中写即可：

Delphi:

procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  ReleaseCapture;
  SendMessage(self.Handle,WM_SYSCOMMAND,SC_MOVE or HTCAPTION,0);
end;

C#:

加入程序集：using System.Runtime.InteropServices;

using System;
using System.Collections.Generic;
using System.ComponentModel;
using System.Data;
using System.Drawing;
using System.Linq;
using System.Text;
using System.Windows.Forms;
using System.Runtime.InteropServices;


namespace WindowsFormsApplication6
{
    public partial class Form2 : Form
    {
        [DllImport("user32.dll", EntryPoint = "ReleaseCapture")]
        private static extern bool ReleaseCapture();
        [DllImport("user32", EntryPoint = "SendMessage")]
        private static extern bool SendMessage(IntPtr hwnd, int wMsg, int wParam, int lParam);
        const int WM_SYSCOMMAND = 0x0112;
        const int SC_MOVE = 61456;
        const int HTCAPTION = 2;
        public Form2()
        {
            InitializeComponent();
        }

        private void button1_Click(object sender, EventArgs e)
        {
            this.Hide();
            this.Close();
        }

        private void Form2_Load(object sender, EventArgs e)
        {

        }

        private void Form2_MouseDown(object sender, MouseEventArgs e)
        {
            ReleaseCapture();
            SendMessage(this.Handle, WM_SYSCOMMAND, SC_MOVE + HTCAPTION,0);
        }
    }
}

 

 

 

转载于:https://www.cnblogs.com/yagzh2000/archive/2012/11/28/2792907.html