PageControl 禁用选项卡上的文本 - 灰色文本

我正在寻找（我认为）可以在 TPageControl 组件的 OnDrawTab 事件中使用的 Windows API，以在我选择的选项卡上显示灰色文本。我过去曾经这样做过，根据记忆，这就是我所做的（在 OnDrawTab 事件中）。不幸的是，我无法访问代码来回顾我之前是如何做到的。

我确信我使用了诸如 DrawText 或 TextOut 之类的东西，但我能够向其添加标志或格式样式，使其呈现灰色外观。我一生都找不到我使用的命令。 ODS_DISABLED 标志似乎与我所追求的类似，但它是一个 Windows 消息处理程序，所以我确信我以前没有使用过它。我不是在这里编写组件，只是处理 OnDrawTab 事件。

有人指出我正确的方向吗？

我正在使用德尔福6。

Thanks

Jason

您可以使用DrawState http://msdn.microsoft.com/en-us/library/dd162496(VS.85).aspx and GrayString http://msdn.microsoft.com/en-us/library/dd144963(VS.85).aspx功能。

procedure TForm1.FormClick(Sender: TObject);
var
  s: string;
begin
  s := 'testar';
  DrawState(Canvas.Handle,
            0,
            nil,
            integer(@s[1]),
            length(s),
            10,
            10,
            0,
            0,
            DST_TEXT or DSS_DISABLED)
end;