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

Question

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

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

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

我使用的是 Delphi 6。

谢谢

杰森

Answer 1

您可以使用DrawState和GrayString功能。

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;