delphi 获取当前光标处颜色的例子

本文整理自网络，侵删。

 procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
var
DC:HDC;
X Y:Integer;
begin
X:=Mouse.CursorPos.X;
Y:=Mouse.CursorPos.Y;
if Key<>VK_Return then Exit;
DC:=GetDC(0);
Color:=GetPixel(DC X Y);
end; 

相关阅读 >>

Delphi dbnavigator1 模拟点击

Delphi 连接dbf数据

Delphi datasnap 获取客户端ip

Delphi自有的md5函��

Delphi clientdataset 与fdmemtable 创建 字段与追加记录

Delphi里树形菜单的实现

Delphi xe 新功能试用：多种皮肤样式静、动态设置方法

如何在Delphi中获取字符串字节数？

Delphi real控件 rm格式的播放器

wmi使用的win32_类库名

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 获取当前光标处颜色的例子