F feagle Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #1 我想在程序使用过程中,如果进入pagecontrol的不同tabsheet,则当前活动的tabsheet的标题(caption)颜色变成红的,其它是black的,只有当前的是红的, 如何去作,请帮帮我,thank!
我想在程序使用过程中,如果进入pagecontrol的不同tabsheet,则当前活动的tabsheet的标题(caption)颜色变成红的,其它是black的,只有当前的是红的, 如何去作,请帮帮我,thank!
千 千中元 Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #2 我象是用activepage属性 case activepage of a: begin ... 设置 end b: begin .. end ... 好几个月没用过case 语句了，也不知道对不对：}
我象是用activepage属性 case activepage of a: begin ... 设置 end b: begin .. end ... 好几个月没用过case 语句了，也不知道对不对：}
W wjiachun Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #4 还有，难处应该是——tabsheet的标题(caption)颜色变成红的
O o*o Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #6 将PageControl的OnwerDraw设为True,在OnDrawTab中画各Tab的文字。
O o*o Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-13 #7 啊，cAkk只打了‘OnDrawTab’几个字，所以比我快了17秒。:-(
F feagle Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #9 cAkk and O*O,谢谢你们,but能不能更详细一些?如何用OnDrowTab来paint?
O o*o Unregistered / Unconfirmed GUEST, unregistred user! 2000-04-14 #10 if Active then Control.Canvas.Font.Color:=clRed; Control.Canvas.TextOut(rect.left+4,rect.top+4,PageControl1.Pages[TabIndex].Caption);
if Active then Control.Canvas.Font.Color:=clRed; Control.Canvas.TextOut(rect.left+4,rect.top+4,PageControl1.Pages[TabIndex].Caption);
