【发布时间】:2011-09-17 13:29:59
【问题描述】:
在这段代码中,我希望在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;
【问题讨论】: