康 康夫 Unregistered / Unconfirmed GUEST, unregistred user! 2000-08-07 #2 1.OwnerDraw --> True 2.在OnDrawTab中写代码 // 自己试试吧,怎样比较满意 with TPageControl(Control).Canvas do begin Brush.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, '1111'); end;
1.OwnerDraw --> True 2.在OnDrawTab中写代码 // 自己试试吧,怎样比较满意 with TPageControl(Control).Canvas do begin Brush.Color := clRed; FillRect(Rect); TextOut(Rect.Left, Rect.Top, '1111'); end;