社区
Delphi
帖子详情
求救啊,我想读取某程序窗口内某点颜色并显示在我的界面上
solarfeiyang
2013-10-23 08:57:32
我想做一个窗口程序,来实时的反应某程序窗口某点上的颜色,该如何做啊。
...全文
121
2
打赏
收藏
求救啊,我想读取某程序窗口内某点颜色并显示在我的界面上
我想做一个窗口程序,来实时的反应某程序窗口某点上的颜色,该如何做啊。
复制链接
扫一扫
分享
转发到动态
举报
AI
作业
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
confucius
2013-10-25
打赏
举报
回复
procedure TfrmMain.FormCreate(Sender: TObject); var MRect: TRect; begin SystemParametersInfo(SPI_GETWORKAREA, 0, @MRect, 0); Left := MRect.Right - Width; Top := MRect.Bottom - Height; end; procedure TfrmMain.TimerTimer(Sender: TObject); var Pos: TPoint; Handle: HWND; ScreenDC: HDC; Buf: array[0..1024] of Char; ScreenColor: COLORREF; begin GetCursorPos(Pos); // 得到当前光标位置 Handle := WindowFromPoint(Pos); // 返回当前位置的句柄 HandleText.Caption := IntToStr(Handle); GetClassName(Handle, Buf, 1024); // 得到类名 ClassNameText.Caption := Buf; SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题 TitleText.Caption := Buf; { 得到光标处点的颜色 } ScreenDC := GetDC(0); ScreenColor := GetPixel(ScreenDC, Pos.X, Pos.Y); Shape.Brush.Color := TColor(ScreenColor); edtRGBColor.Text := '红:' + IntToStr(GetRValue(ScreenColor)) + ' 绿:' + IntToStr(GetGValue(ScreenColor)) + ' 蓝:' + IntToStr(GetBValue(ScreenColor)); ReleaseDC(0, ScreenDC); edtHtmlColor.Text := Format('#%2.2x%2.2x%2.2x', [GetRValue(ScreenColor), GetGValue(ScreenColor), GetBValue(ScreenColor)]); edtColor.Text := Format('$%2.2x%2.2x%2.2x', [GetBValue(ScreenColor), GetGValue(ScreenColor), GetRValue(ScreenColor)]); end;
鐵蛋
2013-10-24
打赏
举报
回复
GetPixel
Pyqt5的QGraphicsView的使用-选择图片,
显示
在GUI中
Pyqt5的QGraphicsView的使用一、
想
实现的目标二、逻辑代码的实现三、
界面
代码的实现四、遇到的问题五、接下来怎么做 一、
想
实现的目标
想
设计一个GUI,从文件管理器中选择图片,然后讲图片
显示
在QGraphicsView中 二、逻辑代码的实现 逻辑代码是在pycharm里面进行编写 import sys import os from PyQt5.QtWidgets import QA...
Android
界面
特效全汇总
(一)Activity 页面切换的效果 Android 2.0 之后有了 overridePendingTransition() ,其中里面两个参 数,一个是前一个 activity 的退出两一个 activity 的进入, Java 代码 1. @Override public void onCreate(Bundle savedIn
数据结构与
程序
设计——C++语言描述(Data Structures & Program Design in C++) by Robert L.Kruse & Alexander J.Ryb
第1章
程序
设计原理 率章首先慨述良好
程序
设计的重要原理,特别是它们在大型项目中的应用;然后介绍用 于发现有救算法的方法,如面向对象的设计和白顶向下的设计。在此过程中,我们提出将在 后继章节中论述的
程序
设计和数据存储方法方面的问题,并通过使用c'+编写
程序
,复习一 下这门语言的一些基本特性。 1 1简介 编写大型计算机
程序
的最大困难不在于确定此
程序
的目标是什么,也不在于找出达到
MyEclipse使用经验总结
MyEclipse使用经验总结 0. 快捷键 编辑: Ctrl+Shift+L
显示
所有快捷键 Ctrl+K 参照选中的词(Word)快速定位到下一个 Ctrl+Shift+K 参照选中的词(Word)快速定位到上一个 Ctrl+O 快速
显示
OutLine Ctrl+T 快速
显示
当前类的继承结构 Ctrl+Shift+X 把选中文本全部改为大写 Ctrl+Shift+Y 把选中文本全部改为小写 Ctrl+Shift+F 按照当前的配置文件格式化源代码 Ctrl+L 弹出行定位框以便定位到某一行 Ctrl+N
VB如何只
读取
字符串中的数字部分??
逐个字符判断,是否为 "+-0123456789." 中的一个,取出连续的数值部分问题不明确啊 比如: dim s as string dim v as long s="123abc456efg" 如果你只要123,那么有现成的函数: v=val(s) 如果你要123456,如老鸟所言,逐个字符判断,或者用正则 遍历~Private Sub Command1_C...
Delphi
5,929
社区成员
262,934
社区内容
发帖
与我相关
我的任务
Delphi
Delphi 开发及应用
复制链接
扫一扫
分享
社区描述
Delphi 开发及应用
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章