取得当前光标处的颜色

]、。·ˉˇ¨〃々—～‖…’”〕〉》」』〗】∶！＂＇），．：；？］｀ 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;