1 procedure TForm1.FormCreate(Sender: TObject); 2 var 3 hr :thandle; 4 begin 5 hr:=createroundrectrgn(1,1,width-2,height-2,5,5); 6 setwindowrgn(handle,hr,true); 7 end;
Delphi 圆角窗体,布布扣,bubuko.com
Delphi 圆角窗体
原文：http://www.cnblogs.com/lifelog/p/3621853.html
