// Disabled-Text auf einer Zeichenfläche ausgeben.


// Getestet mit CE unter Win10

function DisabledText(const Canvas: TCanvas; const X, Y: Integer; 
  const Text: string): Boolean; 
begin 
  Result := DrawState( 
    Canvas.Handle,            // Zeichernfläche 
    0,                        // nicht benutzt 
    nil,                      // nicht benutzt 
    LParam(PChar(Text)),      // Text 
    Length(Text),             // Länge des Textes 
    X, Y,                     // Koordinaten 
    0, 0,                     // Breite, Höhe des Text-Rechtecks (nicht nötig) 
    DST_TEXT or DSS_DISABLED  // Status 
  ); 
end; 
 
 
// Beispielaufruf 
 
var 
 s: String = 'Das ist ein Versuch!'; 
 
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Canvas.Font.Name := 'Times New Roman'; // z.B. 
  Canvas.Font.Size := 16;                // z.B. 
  Canvas.TextOut(30, 50, s);             // Enabled Text 
  DisabledText(Canvas, 30,75, s);        // Disabled Text 
end;