Form1.Caption ????

[Sharky]

Zitat von 150gozilla:

... Selber malen, das ist auch nen krampf.^^

Anders wird es nicht gehen
Auch Luckie zeichnet die Caption in seinem Beispiel selber. Aber das ist ja eigentlich kein Problem.
Du musst den Code nur an drei Stellen ändern / ergänzen:

Delphi-Quellcode:

begin
.
  CaptRect.Left := GetSystemMetrics(SM_CXEDGE) + GetSystemMetrics(SM_CXICON);
.
  SetTextColor(dc, RGB(255, 0, 0)); // Hier deine Farbe angeben
  DrawText(dc, @WndCaption[1], lstrlen(@WndCaption[1]), CaptRect, DT_LEFT or DT_VCENTER);
.
end;