我查閱delphi的help，cancas.clipRect中有個範例如下 要取消之前所設定的範圍，只要填入nil就行， 可是為什麼我comile不會過呢 錯誤訊息:hrgn與pointer型態不符  

 
procedure Form1.Button1Click(Sender: TObject);
var        MyRgn: HRGN ;    begin        MyRgn := CreateRectRgn(100,100,200,200);
    SelectClipRgn(Image1.Canvas.Handle,MyRgn);
    Image1.Canvas.Brush.Color := clRed;
    Image1.Canvas.FillRect(Image1.Canvas.ClipRect);
    Image1.Invalidate;
    SelectClipRgn(Image1.Canvas.Handle,nil);//這裏填nil，會有錯，不解??
    DeleteObject(MyRgn);    end;    

SelectClipRgn(Image1.Canvas.Handle,0); 即可。 原因是 hrgn 在 Delphi 定義是是直接定成 longword 而不是定成 pointer，所以雖然 nil 即是 0 但 complier 卻查出兩種的宣告不同而不給通過。