delphi之屏幕取色

来源:http://www.delphitop.com/html/tuxiang/723.html

上个预览图先:

unit Unit1; 

interface 

uses 
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
Dialogs, StdCtrls, ExtCtrls; 

type 
TForm1 = class(TForm) 
Button1: TButton; 
Timer1: TTimer; 
Edit1: TEdit; 
procedure Timer1Timer(Sender: TObject); 
procedure FormCreate(Sender: TObject); 
procedure Button1Click(Sender: TObject); 
end; 

var 
Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure TForm1.FormCreate(Sender: TObject); 
begin 
Timer1.Enabled := False; 
Timer1.Interval := 100; 
Button1.Default := True; 
Button1.Caption := '开始'; 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
Timer1.Enabled := not Timer1.Enabled; 
if Timer1.Enabled then Button1.Caption := '停止' 
else Button1.Caption := '开始'; 
end; 

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; 

end.

发表评论