象Form,Image之类的都有Canvas,就是没有也不怕,咱可以自己造,只要他有Handle就行。
var
DC: HDC;
Canvas: TCanvas;
begin
DC:=GetDC(Panel1.Handle);
try
Canvas:=TCanvas.Create;
try
Canvas.Handle:=DC;
//调用Canvas的过程
finally
Canvas.Free
end
finally
ReleaseDC(Panel1.Handle, DC)
end
end;
这就是为Panel造Canvas的例子