怎样把矩形的TPanel,TPageControl变成圆角矩形?请提供控件或代码或方法。
解决方案 »
- (高分求教)fastreport detail中竖向线条如何随子报表的高度而伸展
- 关于dbgrid组件的滚动条的问题,困扰我好久了
- 多表连接问题!在线等待!
- 如何阻止"Discard changes to this record?"警告?
- 如何判断TClientDataSet中的数据已经被修改.
- 请高手进来看看,救急
- 100分求解:把纯文本text,dbf,excel文件导入access,在jet oledb中Extended Properties的写法
- 麻烦大家帮我看看错在哪里了?
- TreeView的问题!
- 如何实现像delphi编辑窗口中关键字不同颜色显示?
- 如何实现quickrep中全部数据的整体位移??
- 关于Ado的,在线等待
http://www.51delphi.com/delphi/soft?type=界面
procedure TForm1.Button1Click(Sender: TObject);
var
eW,eH:Integer;
rgnWin:HRGN;
begin
eW:=10;
eH:=10;
rgnWin:=CreateRoundRectRgn(0,0,Panel1.Width+1,Panel1.Height+1,eW,eH);
SetWindowRgn(Panel1.Handle,rgnWin,true);
end
不过,这样最后生成的边没有了,你需要自己画线或用shape来美化一下