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 覆盖模式处理透明

Delphi firedac内存表

Delphi xe 利用fmx控件的makescreenshot过程实现wait效果

Delphi用idhttp提交自定义cookie

Delphi2010 编译变量$region用法

Delphi 如何解析网址？

Delphi 生成二维码图形

高手谈做程序员的8大基本原则

Delphi fmx 获取控件句柄

Delphi 生成guid算法的单元

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

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