screencanvas.pas

来自「在深度历险网站上发布的所有delphi程序原码。对初学delphi者很有用。」· PAS 代码 · 共 38 行

PAS
38
字号
unit ScreenCanvas;

interface

uses Windows, Graphics;

type
  TScreenCanvas = class(TCanvas)
  private
    procedure FreeContext;
  protected
    procedure CreateHandle; override;
  public
    destructor Destroy; override;
  end;

implementation

destructor TScreenCanvas.Destroy;
begin
  FreeContext;
  inherited Destroy;
end;

procedure TScreenCanvas.CreateHandle;
begin
  Handle := GetDC(0);
end;

procedure TScreenCanvas.FreeContext;
begin
  ReleaseDC(0, Handle);
  Handle := 0;
end;

end.

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?