用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=)