//以下代码实现移动无标题栏窗体
Procedure TMainForm.FormMove(Var Msg : TWMNCHitTest);
begin
Inherited;
If Msg.Result = HTClient Then Msg.Result:=HTCaption;
end;
//以下代码实现圆角矩形窗体
procedure TMainForm.FormCreate(Sender: TObject);
var hd:HRgn;
begin
hd:=CreateRoundRectRgn(50,50,Width-50,Height-50,50,50);
SetWindowRgn(Handle,hd,True);
end;