关于实现无边框窗体的缩放功能

Question

procedure   CreateParams(var   Params:   TCreateParams); 
begin 
    inherited   CreateParams(Params); 
    Params.Style   :=   (Params.Style   or   WS_THICKFRAME); 
    Params.Style   :=   (Params.Style   or   WS_POPUP)   xor     (WS_DLGFRAME);       
  end; 
以上代码实现了无边框窗体用鼠标的缩放，但是用上面代码后又重新给窗体加上了一个边框。现在用什么方法能实现真正无边框窗体的缩放。而且不能给窗体加边框。谢谢了。