如何给图片增加透明文字.txt

来自「创建异形窗体可以创建出各种各样的异形窗体」· 文本 代码 · 共 11 行

procedure TForm1.Image1Click(Sender: TObject);
begin
Image1.Canvas.Font.Size:=15;
Image1.Canvas.Font.Color:=clred;
Image1.Canvas.Brush.Style:=bsClear;
Image1.Canvas.Brush.Style:=bsSolid;
Image1.Canvas.Brush.Style:=bsHorizontal;
Image1.Canvas.TextOut(100,100,'江西省软考试题');
end;