如何让PageControl的TabSheet闪烁

[xhua_yu]

PageControl有几个TabSheet，如果其一个TabSheet没显示在最前面，我想当我接到消息的时候，有闪烁的效果，提示有新消息！

[last_wolf1860]

这个闪烁只能是自画Tab实现跟前一种风格的对比，个人感觉重画的效果一般，楼主自己斟酌，提供一个思路：
procedure TForm1.btn1Click(Sender: TObject);
var
i: Integer;
begin
for i := 0 to 10 do
begin
pgc1.OwnerDraw:=not pgc1.OwnerDraw;
pgc1.Update;
Sleep(200);
end;
end;

procedure TForm1.pgc1DrawTab(Control: TCustomTabControl; TabIndex: Integer;
const Rect: TRect; Active: Boolean);
begin
if TabIndex<>2 then exit;//非索引号为2的不自绘

with Control.Canvas do
begin
Pen.Color:=clRed;
Brush.Color:=clBlack;
FillRect(rect);


end;
end;

[bdmh]

定时自画tab页签

[xhua_yu]

thanks last_wolf1860