当我释放画布时 DC 会发生什么？

Question

在此代码中，我希望在 MyCanvas.Free 中调用 ReleaseDC，但此代码运行良好，这是怎么回事？
TCanvas 自己的 DC 会怎样？

var GlobalDC: THandle;

procedure TForm1.FormCreate(Sender: TObject);
begin
   GlobalDC:= GetDC(0);
end;

function LoopMeOften(const X, Y: Integer): TColor;
var
  MyCanvas: TCanvas;
begin
  MyCanvas := TCanvas.Create;
  MyCanvas.Handle := GlobalDC;
  Result := GetPixel(MyCanvas.Handle, X, Y);
  MyCanvas.Free;
end;

Answer 1

TCanvas 没有自己的 DC，它既不获取也不释放 DC。它的后代 TControlCanvas 确实如此。

来自 TCanvas.Handle 属性

TCanvas 不拥有 HDC。
应用程序必须创建 HDC 并
设置句柄属性。应用领域
画布时必须释放HDC
不再需要它。