如何去掉TabControl的边框？ ( 积分: 50 )

程序中需要用到一个TabControl，里面放一个ListView，显示的时候特别难看，TabControl周围有特别重的边框，我现在想把边框去掉，或者让他淡一些，像ListView这样的控件都有去边框的属性，而TabControl却没有，不知该如何处理，有没有具体的办法？

程序中需要用到一个TabControl，里面放一个ListView，显示的时候特别难看，TabControl周围有特别重的边框，我现在想把边框去掉，或者让他淡一些，像ListView这样的控件都有去边框的属性，而TabControl却没有，不知该如何处理，有没有具体的办法？

将TabControl的Style属性设置为tsFlatButtons既可

tabvisible设置下，程序里面动态调出来

这儿有一个控件，非常简单，你自己看看吧
unit PageControlEx;
{
This component removes the border at the pagecontrol(only when there are one ore more tabs).
Copyright?998 Sigbjoern Revheim (Sigbjoern@mad.scientist.com)
Remember always to give credit when using freeware!
}
interface

uses
Windows,Messages,Classes,CommCtrl,ComCtrls;

type
TPageControlEx=class(TPageControl)
protected
procedure WndProc(var Message:TMessage); override;
end;

procedure Register;

implementation

procedure TPageControlEx.WndProc(var Message:TMessage);
begin
if(Message.Msg=TCM_ADJUSTRECT) then begin
Inherited WndProc(Message);
PRect(Message.LParam)^.Left:=0;
PRect(Message.LParam)^.Right:=ClientWidth;
PRect(Message.LParam)^.Top:=PRect(Message.LParam)^.Top-4;
PRect(Message.LParam)^.Bottom:=ClientHeight;
end else Inherited WndProc(Message);
end;

procedure Register;
begin
RegisterComponents('SRComponents', [TPageControlEx]);
end;

end.

没看清楚，不好意思，style设置成tsFlatButtons确实就好了，学习

chenybin大侠客气了，互相学习！互相学习！：）多多联系！