本功能其实于一般的绘图工作无异,主要是将文本绘制在Screen上即可1
- procedure TForm1.Button1Click(Sender: TObject);
- var
- c :TCanvas;
- begin
- c := TCanvas.Create;
- c.Handle := GetDC(0); //获取桌面 Handle
- SetBkMode(c.Handle, TRANSPARENT);
- c.Font.Size := 50;
- c.Font.Color:= clRed;
- c.TextOut(200,600,'测试文本!');
- end;