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 api �c multibytetowidechar的用法

Delphi fileopendialog1 多选加载大量文件,不受中文文件名影响

Delphi webbrowser 释放注意事项

Delphi mscomm控件串口收发程序

Delphi 比较版本号

Delphi获取本机或者网关的互联网ip地址

Delphi版插apc杀进程驱动源码

Delphi char string

pos、ansipos、fillchar在Delphi2010中unicode的问题

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

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