怎样获得屏幕像素的颜色值？
我需要在窗体中用image控件来显示地图，怎样通过鼠标实现对地图的不同行政区的识别以
进入不同的数据库系统？我打算用颜色区分不同的不规则的行政区，实现鼠标的Click事件
但不知应怎样编写代码，希望各位高手援手。
问题点数：100、回复次数：5Top
1 楼forgettor（）回复于 2000-04-03 18:28:00 得分 0
试试API之GetPixel函数Top
2 楼Lin（林）回复于 2000-04-03 19:14:00 得分 0
It's Too Simple:
1、对于不规则的区域选取，网络上有现成的控件，找不到我可以G个给你；
2、最好在OnMouseMove返回颜色：Canvas.Pixels[X, Y]。Top
3 楼eaglet（小鹰）回复于 2000-04-04 11:57:00 得分 70
//以下代码 当你的鼠标点击到TImage对象上时将自动把Label1对象的Caption属性置为鼠标所在点的颜色值,不知你是否满意,如有问题可以Email给我
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption := IntTostr((sender as TImage).Canvas.Pixels[x,y]);
end;Top
4 楼Brain（无缺公子）回复于 2000-04-04 16:02:00 得分 20
procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Label1.Caption := IntTostr(Image1.Canvas.Pixels[x,y]);
end;
//image只能放bmp图才能用Canvas.用其他的（JPG等）都不行，eaglet兄的也只对BMP有效。Top
5 楼eaglet（小鹰）回复于 2000-04-05 08:55:00 得分 10
如果是JPG,可以修改delphi的jpeg.pas 这个UNIT 来实现
不知dongcan兄是否要求对JPG图象处理,如只是对于BMP,
以上方法足矣
Brain兄将 (sender as TImage) 改为Image1 当然是可以的
但我个人认为影响程序的维护性.
比如你如果在Image2对象的onmousedown事件中也要执行上述
代码,就需要重新再一遍代码.虽然只是改动了一个字.Top
