var
MyRgn,bmpRgn: THandle;
X, Y: Integer;
for x:=0 to Image1.width-1 do
for y:=0 to Image1.height-1 do
begin
if Image1.Canvas.Pixels[x,y]= AColor then
begin
bmpRgn:= CreateRectRgn(x,y,x+1,y+1);
CombineRgn(MyRgn,MyRgn,bmpRgn,RGN_XOR);
end;
end;
得到Acolor的区域就是MyRgn,
具体怎么闪烁你可以查阅region functions