原理很简单，在字的坐上、上、右上 、左、右、左下、下、右下分别使用边界颜色写一遍字，即生成背景，然后写最终的字，下面是代码

procedure TForm1.Button1Click(Sender: TObject);
var tc : TCanvas;
begin
  tc := Label1.Canvas;
  tc.Font.Color := RGB(0, 255, 0);  //背景颜色
  tc.TextOut(0, 0, 'abc');
  tc.TextOut(0, 1, 'abc');
  tc.TextOut(0, 2, 'abc');
  tc.TextOut(1, 0, 'abc');
  tc.TextOut(1, 2, 'abc');
  tc.TextOut(2, 0, 'abc');
  tc.TextOut(2, 1, 'abc');
  tc.TextOut(2, 2, 'abc');
  tc.Font.Color := RGB(0, 0, 255);  //字颜色
  tc.TextOut(1, 1, 'abc');

end; 

 

本文链接：https://blog.csdn.net/webouse/article/details/1774861