如何在delphi实现类似photoshop中的吸管功能 如何在delphi实现类似photoshop中的吸管功能,即鼠标单击图像,然后获取单击处的色彩 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);var C: TColor;begin C := Image1.Picture.Bitmap.Canvas.Pixels[X, Y]; Caption := IntToHex(C, 8);end; ADO连接数据库出错 那里有提供中文说明的WEB服务? 如何得到脚本变量 请问Delphi怎样读取3ds等文件? 如何在DBGRID中自动给记录所在的行中的一个字段赋值呢....现场给分 虚荣心,天这么热,我竟穿了5条内裤!!! Delphi下如何判断一个目录是不是存在? 在使用ado连接数据库的程序中,如何把错误信息按自己定义显示? delphi的treeview节点为何显示不出汉字 请教各种字符串类型之间的转换?string,PChar,PWideChar,请给出例程 我100分问一个关于IDHTTP POST后收不到重新定向的地址的问题! 高分求高手关于TEXRICHEDIT的一个问题
Shift: TShiftState; X, Y: Integer);
var
C: TColor;
begin
C := Image1.Picture.Bitmap.Canvas.Pixels[X, Y];
Caption := IntToHex(C, 8);
end;