文档章节

全局探色器

涂孟超
 涂孟超
发布于 2014/09/26 15:34
字数 177
阅读 7
收藏 0
本例效果图:



此例回复 maxcool(我坚定的支持者与监督者, 离不开你呀!) 在
http://www.cnblogs.com/del/archive/2008/03/09/1096874.html#1097203 提出的问题.

全部代码如下:
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.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/09/1097279.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
Vue中使用CSS预处理器 stylus以及配置全局变量的方法

前言 不得不说CSS预处理器(Sass/Less/Stylus)极大的方便了前端研发攻城狮编写CSS样式,提供了变量定义、可嵌套的选择器、mixins混合书写、函数定义等诸多便捷的能力。 今天呢,胡哥就以stylu...

JustBeCoder
07/12
0
0
好用的Windows屏幕取色器--赏色

赏色 这是一个Windows平台使用的屏幕取色器工具。有十六进制和RGB两种颜色值的显示。 开发工具>=VS2010,运行环境需要>=.net4.0 使用说明 程序启动后,有两个窗口:一个颜色值显示窗口,一个...

hyjiacan
2016/12/08
3.5K
3
hyjiacan/ColorWanted

ColorWanted 赏色 这是一个Windows平台使用的屏幕取色器工具。有十六进制和RGB两种颜色值的显示。 运行环境 Microsoft .NET Framework 4.0 [MENU] #下载 稳定版 开发版 使用说明 程序启动后,...

hyjiacan
2016/08/03
0
0
js创建一个好看的html5播放器

html5播放器原理:其实无非还是使用了html5的audio元素,然后基于audio的api自己去写播放器各个方法(播放、暂停、进度条、声音控制)等等,我看了下网易的云音乐的播放器,也是采用的audio...

jay_xu
2016/11/07
37
0
你的网站可以一键变色吗?

若干年前写过一个叫「网站换色精灵」的小工具,原理是调整网站所有图片的色相、饱和度和亮度。然而并没有什么人用……或许是因为做得不好,又或许这本身就是一种伪需求。 得益于 Web 标准的发...

lujjjh
2017/09/28
0
0

没有更多内容

加载失败,请刷新页面

加载更多

70.shell的函数 数组 告警系统需求分析

20.16/20.17 shell中的函数 20.18 shell中的数组 20.19 告警系统需求分析 20.16/20.17 shell中的函数: ~1. 函数就是把一段代码整理到了一个小单元中,并给这个小单元起一个名字,当用到这段...

王鑫linux
今天
2
0
分布式框架spring-session实现session一致性使用问题

前言:项目中使用到spring-session来缓存用户信息,保证服务之间session一致性,但是获取session信息为什么不能再服务层获取? 一、spring-session实现session一致性方式 用户每一次请求都会...

WALK_MAN
今天
6
0
C++ yield()与sleep_for()

C++11 标准库提供了yield()和sleep_for()两个方法。 (1)std::this_thread::yield(): 线程调用该方法时,主动让出CPU,并且不参与CPU的本次调度,从而让其他线程有机会运行。在后续的调度周...

yepanl
今天
4
0
Java并发编程实战(chapter_3)(线程池ThreadPoolExecutor源码分析)

这个系列一直没再写,很多原因,中间经历了换工作,熟悉项目,熟悉新团队等等一系列的事情。并发课题对于Java来说是一个又重要又难的一大块,除非气定神闲、精力满满,否则我本身是不敢随便写...

心中的理想乡
今天
42
0
shell学习之获取用户的输入命令read

在运行脚本的时候,命令行参数是可以传入参数,还有就是在脚本运行过程中需要用户输入参数,比如你想要在脚本运行时问个问题,并等待运行脚本的人来回答。bash shell为此提 供了read命令。 ...

woshixin
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部