备忘

//圆角控件

procedure TMainf.RoundControl(Control:TPanel);
var
   hr:thandle ;
begin
hr:=createroundrectrgn(0,0,Control.Width,Control.height,10,10);
setwindowrgn(Control.handle,hr,true);
end;

//圆角控件

//设置没有标题的窗体

setwindowlong(MainF.Handle,gwl_style,getwindowlong(handle,gwl_style) and not ws_caption);
height:=clientheight;

//设置没有标题的窗体