選択したタブの色を変更するには？ (ID:12048)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 procedure TForm1.TabControl1DrawTab(Control: TCustomTabControl; TabIndex: Integer; const Rect: TRect; Active: Boolean); var R: TRect; begin R := Rect; with Control.Canvas do begin if Active then begin Brush.Color := clAqua; Font.Color := clBlue; Font.Style := [fsBold]; InflateRect(R, -1, -1); end else begin Brush.Color := clWhite; Font.Color := clBlack; Font.Style := []; OffsetRect(R, 0, 2); end; FillRect(R); TextOut(Rect.Left+4, Rect.Top+4, TTabControl(Control).Tabs[TabIndex]); end; end;