直接发消息好像没有这么个参数,不过有handle还怕什么。<br>var<br> DC : HDC;<br> Color : Integer;<br>begin<br> DC := GetDC(Handle);<br> try<br> Color := GetPixel(DC,X,Y);<br> Panel1.Color := Color;<br> finally<br> ReleaseDC(Handle,DC);<br> end;