ExSystem·许子健的专栏

procedure TForm1.FormCreate(Sender: TObject);begin  AnimateWindow(Handle,2000{速度：2秒},AW_BLEND);{ AW_HOR_POSITIVE = $00000001;  AW_HOR_NEGATIVE = $00000002;  AW_VER_POSITIVE = $00000004;  AW_VER_NEGATI

一般情况下，移动一个窗体需要将鼠标放置在标题栏上才能拖动窗体，为 什么非要使用标题栏呢？其实我们可以使用一个巧妙的方法来实现将鼠标放置 在窗体上按下就可拖动窗体，下面先看实现代码。在Form1的“Private”部分声明过程： 在private部分加入下列代码：procedure wmnchittest(var msg:twmnchittest);message wm_nchittest;在程序