windows如何实现禁用状态文字？

这里有一个简单的例子：procedure TForm1.FormPaint(Sender: TObject);
begin
  form1.Canvas.Brush.Style := bsClear;
  form1.Canvas.Font.Color :=clBtnHighLight;
  form1.Canvas.TextOut(100,100,'文字');
  form1.Canvas.Font.Color :=clBtnShadow;
  form1.Canvas.TextOut(100-1,100-1,'文字');
end;
希望能对你有用。