zoukankan      html  css  js  c++  java
  • 把文字输出到屏幕

    本例效果图:


    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.
    
  • 相关阅读:
    练习题
    作业2.6-2.15 两次作业
    11.13(2)
    11.13
    11.6
    10.30
    10.15
    10.9
    9.25号作业
    9.18号
  • 原文地址:https://www.cnblogs.com/del/p/1204672.html
Copyright © 2011-2022 走看看