Delphi里如何实现屏幕取色呢?

问答知识库用户 |浏览289次
收藏|2014/05/17 22:00
如题,我想实现一个屏幕取色的功能,如何做到呢?

满意回答

2014/05/17 22:00

procedure TForm1.Timer1Timer(Sender: TObject); 
var 
  pt: TPoint; 
  c: TColor; 
begin 
  GetCursorPos(pt); 
  c := GetPixel(GetDC(0), pt.X, pt.Y); 
  Self.Color := c; 
  Edit1.Text := Format('#%.6x', [c]); 
end;

热心网友

其他回答(0)
0人关注该问题
待解决问题



+1
 加载中...