试试一面的代码 procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var l_cap :String; l_rect:Trect; begin if TabIndex=PageControl1.TabIndex then begin with PageControl1.Canvas do begin Font.Color := clBlue; Brush.Color := clInfoBk; FillRect(Rect); end; end; l_cap := PageControl1.Pages[tabindex].caption; l_Rect := Rect; DrawText(PageControl1.Canvas.Handle,Pchar(l_Cap),Length(l_cap),l_Rect, DT_CENTER or DT_VCENTER or DT_WORDBREAK); end;
self.TabSheet1.Caption :='商'+#13+#10+'品'+#13+#10+'管'+#13+#10+'理';
不过是笨了些.
procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
TabIndex: Integer; const Rect: TRect; Active: Boolean);
var l_cap :String;
l_rect:Trect;
begin
if TabIndex=PageControl1.TabIndex then
begin
with PageControl1.Canvas do
begin
Font.Color := clBlue;
Brush.Color := clInfoBk;
FillRect(Rect);
end;
end;
l_cap := PageControl1.Pages[tabindex].caption;
l_Rect := Rect;
DrawText(PageControl1.Canvas.Handle,Pchar(l_Cap),Length(l_cap),l_Rect, DT_CENTER or DT_VCENTER or DT_WORDBREAK);
end;