Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

Как изменить фоновый цвет текста?

01.01.2007

Автор: Олег Кулабухов

procedure TForm1.Button1Click(Sender: TObject);
var
 
OldTextColor: TColorRef;
 
OldBkColor: TColorRef;
 
OldBkMode: Integer;
begin
 
OldTextColor := SetTextColor(Form1.Canvas.Handle, clYellow);
 
OldBkColor := SetBkColor(Form1.Canvas.Handle, clGreen);
 
OldBkMode := SetBkMode(Form1.Canvas.Handle, OPAQUE);
 
TextOut(Form1.Canvas.Handle, 20, 20, 'Delphi World - лучше всех! ;-)', 27);
 
SetBkMode(Form1.Canvas.Handle, OldBkMode);
 
SetBkColor(Form1.Canvas.Handle, OldBkColor);
 
SetTextColor(Form1.Canvas.Handle, OldTextColor);
end;

Взято с https://delphiworld.narod.ru