把文字输出到屏幕

//把文字输出到屏幕

procedure TForm1.Button1Click(Sender: TObject);

var

cvs: TCanvas;

Rect: TRect;

Str: string;

begin

cvs := TCanvas.Create;

cvs.Handle := GetDC(0);

SetBkMode(cvs.Handle, TRANSPARENT);

//cvs.Font.Name := '宋体';

cvs.Font.Style := [fsBold, fsItalic];

cvs.Font.Size := 48;

Randomize;

cvs.Font.Color := Random($FFFFFF);

Rect := Screen.DesktopRect;

Str := '万一的 Delphi 博客';

cvs.TextRect(Rect, Str, [tfSingleLine, tfCenter, tfVerticalCenter]);

cvs.Free;

end;

 

//刷新显示

procedure TForm1.Button2Click(Sender: TObject);

begin

InvalidateRect(0, nil, False);

end;