procedure TForm10.FormCreate(Sender: TObject); begin Panel1.Color:=clHighlight; SetWindowRgn(Panel1.handle,CreateRoundRectRgn(0,0,panel1.width,Panel1.height,50,50),true); end;
Panel1的BevelInner 及 BevelOuter 最好设成 bvNone