unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
//把文字输出到屏幕
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;
end.
把文字输出到屏幕
原创
©著作权归作者所有:来自51CTO博客作者JLee79的原创作品,请联系作者获取转载授权,否则将追究法律责任
提问和评论都可以,用心的回复会被更多人看到
评论
发布评论
相关文章