发信人: zongchao()
整理人: (2000-12-05 18:38:35), 站内信件
|
请参考以下代码：
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;
--
※ 来源:．月光软件站 http://www.moon-soft.com．[FROM: 210.78.131.108]
|
|