窗体大小的改变！(50分)

如何实现窗体大小的改变！
我想做一个窗体，为bsNone，但我想在它的边缘通过加入控件的方式来改变其大小，当鼠标
左键单击控件并拖动，就可以改变窗体的大小。如何实现？
有一个消息WM_SIZING，用Sendmessge时其参数怎么用？

截取鼠标的消息，改变窗体大小；
sendmessage参数
SendMessage(hwnd_winamp, WM_USER, index, IPC_GETPLAYLISTFILE);

能不能讲清楚一点

width height不行么？

我要的是鼠标拖动时的那种效果

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
procedure CreateParams(var params:TCreateParams);override;
{ Public declarations }
end;

var
Form1: TForm1;
implementation
procedure TForm1.CreateParams(var params:TCreateParams);
begin
//重载的方法，用于重新绘制窗口
Inherited createparams(params) ;
//可以托动窗体的边框（此时窗体是无边框的）
params.style:=WS_THICKFRAME or WS_POPUP or WS_BORDER;
end;
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
close
end;
end.
－－－－－－－－－－－－－－试试～

覆盖CreateParams ......high