Auf der Titelleiste (Caption) eines Fensters zeichnen

• in OnPaint und OnResize der Form implementieren
• der Beispielcode zeichnet auf der rechten Seite der Titelleiste den String “My Text”.

TCanvas * FCanvas = new TCanvas();
if(FCanvas)
{
    Caption = "" ; // Caption löschen
    FCanvas->Handle = GetWindowDC(Handle);
    SetBkMode(FCanvas->Handle, TRANSPARENT);
    SetTextAlign(FCanvas->Handle, TA_RIGHT); //TA_LEFT, TA_CENTER
    SetTextColor(FCanvas->Handle, clWhite); // Farbe
    FCanvas->TextOut(Width-FCanvas->TextWidth("My Text")-5, 6, "My Text");
    delete FCanvas;
}