：PageControl的PageControl1DrawTab事件 好像每时每刻都在运行，能不能让它在程序启动时值运行一次。在这次就确定好TextOut的位置。谢谢。

Question

定义一个全局变量：var IsDraw:Boolean;
form1.onshow时,IsDraw:=True;
PageControl的PageControl1DrawTab事件 
begin
if not IsDraw then exit;
IsDraw:=False;
往下

Answer 1

谢谢！这是我的初衷。本题160分！！！以下是一个问题：第一次提问：难题！！！怎样在程序中改变PageControl中TabSheet活页的颜色？（它没有颜色属性！！！默认是灰色）即 TabSheet1->Color=RGB(220,220,220); （这句话是错的！）第二次提问：再问---难题！！！怎样在程序中改变PageControl中TabSheet活页的颜色？（它没有颜色属性！！！默认是灰色）如果BCB自带的PageControl 不能满足要求，请推荐好的方法或控件。很急！！谢谢。第三次提问：换一种思路---当 PageControl 的 OwnerDraw属性设为true时，如何动态改变TabSheet1->Caption ??? 上？这需要自己画。回复人：　CTO(【首席技术官】)　(2001-9-19 16:07:35)  得0分 
PageControl1的OwnerDraw的属性设为true,响应OnDrawTab事件，加入以下代码就可以了。Control->Canvas->Brush->Color = TColor(RGB(28,28,28));
Control->Canvas->FillRect(Rect);
Control->Canvas->TextOut(5,5,"aaa");
 
回复人：　ThankU(谢谢您的帮助)　(2001-9-19 16:23:02)  得0分 
谢谢，的确可以！但又有一个新问题出现了！如果PageControl的宽度不够，则在右上角多出一个左右的滚动条，这个滚动条的颜色怎样改变？？？？还有，PageControl1DrawTab 好像每时每刻都在运行，能不能让它在程序启动时值运行一次。在这次就确定好TextOut的位置。谢谢大家！本题增加到160分！
 第四次提问：PageControl的PageControl1DrawTab事件 好像每时每刻都在运行，能不能让它在程序启动时值运行一次。在这次就确定好TextOut的位置。谢谢。