delphi - 在 Delphi 的 TTabSet 中禁用选项卡？

Question

是否可以从 TTabSet 中禁用（但不完全删除）单个选项卡？如何？

似乎没有明显的方法可以做到这一点。

Answer 1

为了将标签的颜色更改为禁用的字体颜色，您必须通过将其 Style 属性更改为 tsOwnerDraw 来覆盖选项卡的绘制。完成后，您可以使用 OnDrawTab 事件，例如：

var
indexOfDisabledTab : Byte = 1;

procedure TForm1.TabSet1DrawTab(Sender: TObject; TabCanvas: TCanvas; R: TRect;
  Index: Integer; Selected: Boolean);
var S : String;
begin

   if IndexOfDisabledTab = Index
   then
     TabCanvas.Font.Color := clGray
   else
     TabCanvas.Font.Color := clBlack;

  S := TabSet1.Tabs.Strings[Index];
  TabCanvas.TextRect(R, S, [tfVerticalCenter,tfSingleLine]);

end;

要防止用户单击选项卡，您可以使用 TTabSet OnChange 事件，如下所示：

procedure TForm1.TabSet1Change(Sender: TObject; NewTab: Integer;
  var AllowChange: Boolean);
begin

 AllowChange := not (NewTab = IndexOfDisabledTab);

end;