[Delphi] 纯文本查看 复制代码unit Unit2;

interface

uses

Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,

System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms, Vcl.Dialogs;

type

TForm2 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

procedure MyMsg(var msg: TWMKeyDown); message WM_KEYDOWN;

public

{ Public declarations }

end;

var

Form2: TForm2;

implementation

{$R *.dfm}

procedure TForm2.FormCreate(Sender: TObject);

begin

Canvas.Font.Size := 24;

Canvas.Font.Style := [fsBold];

Canvas.Font.Color := clRed;

Canvas.Brush.Color := clWhite;

end;

procedure TForm2.MyMsg(var msg: TWMKeyDown);

var

buf: array[0..255] of Char;

rect: TRect;

str: string;

begin

{获取}

GetKeyNameText(msg.KeyData, buf, Length(buf));

{画出来}

str := buf;

rect := ClientRect;

Canvas.FillRect(rect);

Canvas.TextRect(rect, str, [tfSingleLine, tfCenter, tfVerticalCenter]);

inherited;

end;

end.