本文整理自网络，侵删。
原理很简单，在字的坐上、上、右上 、左、右、左下、下、右下分别使用边界颜色写一遍字，即生成背景，然后写最终的字，下面是代码
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
相关阅读 >>
Delphi recodedatetime、recodedate、recodetime、recodeyear ... 修改时间
Delphi tstringlist的delimitedtext的空格问题
更多相关阅读请进入《Delphi》频道 >>
