摘要： procedure RgnWindow();beginvar rgn1,rgn2: HRGN; x,y,w,h, i: Integer;begin w := img1.Width; h := img1.Height;rgn1 := CreateRectRgn(0, 0, w, h);for x := 0 to w - 1 dobegin for y := 0 to h - 1 do begin if img1.Canvas.Pixels[x,y] = clwhite then begin rgn2 := CreateRectRgn(x, y, x+1,... 阅读全文