文档章节

全局探色器

涂孟超
 涂孟超
发布于 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
关于公司LOGO的非重要注意事项

前情 考虑到LOGO以后的打印问题。去集会前和回来后都在头疼担心色差的问题。加上不知道印刷行业的技巧,我只能尽力保证印刷前的准备工作是正确的,方便印刷的时候微调颜色。 方法 依照Adobe...

漫乃
2017/03/20
2
1

没有更多内容

加载失败,请刷新页面

加载更多

Ugly Number(leetcode263)

Write a program to check whether a given number is an ugly number. Ugly numbers are positive numbers whose prime factors only include 2, 3, 5. Example 1: Input: 6Output: true......

woshixin
15分钟前
0
0
深度模型从研者 眼里的 似然估计 & Hessain 海森矩阵 & Fisher Information (费雪信息)

深度模型的训练的基本依据是最小化模型拟合数据的误差。旨在不仅知其然(如何构建和训练一个深度模型),还应知其所以然(为什么这样训练,可以做哪些优化)。我们就会发现,有很多研究者,在...

刘小米_思聪
19分钟前
0
0
阿里巴巴智能监控新场景的探索

摘要: 智能监控是智能运维的子领域,详细分析。 作者简介 王肇刚 阿里巴巴全球运行指挥中心高级技术专家 智能监控是智能运维的子领域,我们说的监控,探讨的更多是在监控策略,因为可能从数...

阿里云官方博客
22分钟前
1
0
【双十二】12 月 12 日 12 点 12 分限量抢福利,云计算不剁手!

活动详情 1.首充豪礼 双十二当日,新用户首充 200 元送 200 元代金券!仅限前 88 名!先到先得!拼手速!(新用户指 12 月 12 日前已完成注册但从未充值过的用户)
 2.超值返券 双十二当日,...

七牛云
47分钟前
3
0
Calculate Linux 发布 18 LXQt是基于Gentoo的发行版

导读 Calculate Linux 是一个基于 Gentoo 并与 Gentoo 完全兼容的滚动更新发行版家族,专为企业环境下的快速部署而优化。其提供多个不同的分支版本,分别适用于桌面、服务器等应用场景。该项...

问题终结者
50分钟前
2
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部