用Delphi画圆角Panel的方法
| procedure TForm1.Button5Click(Sender: TObject); var fhr :Thandle; begin fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4); setwindowrgn(panel1.handle,fhr,true); end; Panel的BevelInner 及 BevelOuter 最好设成 bvNone |
用Delphi画圆角Panel的方法
| procedure TForm1.Button5Click(Sender: TObject); var fhr :Thandle; begin fhr:=createroundrectrgn(0,0,panel1.width,panel1.height,4,4); setwindowrgn(panel1.handle,fhr,true); end; Panel的BevelInner 及 BevelOuter 最好设成 bvNone |
![极其无聊的 StrtoDate 失败[图]](data:image/gif;base64,R0lGODlhAQABAIAAAP///wAAACwAAAAAAQABAAACAkQBADs=)