张志峰的博客

水滴石川，积少成多。

导航

随笔分类 -  Delphi Messages 消息

GetKeyState(vk_control)

摘要：GetKeyState(vk_control) 返回负数 ， 说明按键被按下了 阅读全文

posted @ 2018-01-16 14:39 ╰★张志峰★╮ 阅读(977) 评论(0) 推荐(0)

DELPHI 常用虚拟键：VK_

摘要：常数名称 十六进制值 十进制值 对应按键 VK_LBUTTON 01 1 鼠标的左键 VK_RBUTTON 02 2 鼠标的右键 VK-CANCEL 03 3 Ctrl+Break(通常不需要处理) VK_MBUTTON 04 4 鼠标的中键（三按键鼠标) VK_BACK 08 8 Backspac 阅读全文

posted @ 2018-01-16 14:19 ╰★张志峰★╮ 阅读(2029) 评论(0) 推荐(0)

模拟键盘动作， 模拟鼠标动作

摘要：keybd_event(TextToShortCut('ctrl+s'), 0, 0, 0); LockWindowUpdate(Self.Handle); try GetCursorPos(OldPt); NewPt:=Point(0, 0); Windows.ClientToScreen(App 阅读全文

posted @ 2018-01-16 11:07 ╰★张志峰★╮ 阅读(365) 评论(0) 推荐(0)

Delphi Window 消息大全使用详解

摘要：WM_CTLCOLORSTATIC = $0138; 当一个静态控件将要被绘制时发送此消息给它的父窗口；通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色 WM_MOUSEFIRST = $0200;WM_MOUSEMOVE = $0200; // 移动鼠 阅读全文

posted @ 2018-01-03 18:45 ╰★张志峰★╮ 阅读(326) 评论(0) 推荐(0)

去除标题栏， 绘制标题栏，设置最大化不盖住任务栏

摘要：unit TMEModelImputForm; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, 阅读全文

posted @ 2017-10-27 15:57 ╰★张志峰★╮ 阅读(995) 评论(0) 推荐(0)

无边框窗体拖动大小

摘要：http://blog.csdn.net/suiyunonghen/article/details/2325416 今天有一个朋友问我怎样可以拖拽一个没有边框的窗体，使其改变大小。于是很快想到一个消息WM_NCHITTEST该消息用来描述，当关标移动或当按下或当释放了鼠标按扭的时候，就会发送一个WM 阅读全文

posted @ 2017-10-26 16:02 ╰★张志峰★╮ 阅读(430) 评论(0) 推荐(0)

Delphi模拟最小化恢复关闭按纽

摘要：https://yq.aliyun.com/wenji/96083 本文讲的是Delphi模拟最小化恢复关闭按纽， 我们做多文档应用程序开发时,如果在主From中指定mainMenu时,在主菜单上右角上会自动出现最小化,恢复,关闭按纽,但主菜单放入Toolbar等中时,该三个按纽不会自动出现,因此需 阅读全文

posted @ 2017-10-26 11:01 ╰★张志峰★╮ 阅读(847) 评论(0) 推荐(0)

delphi代码实现窗口最小化，最大化，关闭消息发送

摘要：分类： 代码实现窗口最小化，最大化，关闭var hwnd: hwnd;//句柄PostMessage(hwnd,WM_SYSCOMMAND, SC_MINIMIZE,0); //最小化PostMessage(hwnd,WM_SYSCOMMAND, SC_MAXIMIZE,0);//最大化PostMe 阅读全文

posted @ 2017-10-25 14:26 ╰★张志峰★╮ 阅读(3909) 评论(0) 推荐(0)

delphi 消息的使用

摘要：//分析结果 WM_AnalysisResult = WM_USER + 1009; SendMessage(G_MainHandle, WM_AnalysisResult, 0, 0); procedure WMAnalysisResultUpdate(var AMessage: TMessage 阅读全文

posted @ 2017-05-18 15:19 ╰★张志峰★╮ 阅读(216) 评论(0) 推荐(0)

Delph 两个对立程序使用消息进行控制通信

摘要：在实际应用中，总是会遇到两个独立的程序进行通信，其实通信的方式有好几种，比如进程间通信，消息通信。 项目中用到了此功能， 此功能用于锁屏程序， 下面把实现的流程和大家分享一下。 1. 在锁屏程序中，自定一个消息，如下 //注册消息的句柄 FIMessage: Integer; FIMessage:= 阅读全文

posted @ 2017-03-21 13:02 ╰★张志峰★╮ 阅读(286) 评论(0) 推荐(0)

delphi 主线程向子线程发送消息

摘要：while True do begin if not PeekMessage(msg,0,0,0,PM_REMOVE) then begin case MsgWaitForMultipleObjects(1,hCloseEvent,False,INFINITE,QS_ALLINPUT) of WAI 阅读全文

posted @ 2017-03-09 19:38 ╰★张志峰★╮ 阅读(545) 评论(0) 推荐(0)

PeekMessage和GetMessage函数的主要区别

摘要：PeekMessage和GetMessage函数的主要区别 PeekMessage和GetMessage函数的主要区别有：1. GetMessage的主要功能是从消息队列中“取出”消息，消息被取出以后，就从消息队列中将其删除；而PeekMessage的主要功能是“窥视”消息，如果有消息，就返回tru 阅读全文

posted @ 2017-03-07 13:49 ╰★张志峰★╮ 阅读(408) 评论(0) 推荐(0)

GlobalGetAtomName GlobalDeleteAtom 引用 WinAPI: AddAtom、DeleteAtom、FindAtom、GetAtomName、GlobalAddAtom、GlobalDeleteAtom、GlobalFindAtom、GlobalGetAtomName

摘要：http://www.cnblogs.com/del/archive/2008/02/28/1085124.html 这是储存字符串的一组 API.通过 AddAtom 储存一个字符串, 返回一个 ID;GetAtomName 通过这个 ID 可返回储存的字符串;还可以用 FindAtom 查找、用 阅读全文

posted @ 2017-02-14 10:34 ╰★张志峰★╮ 阅读(422) 评论(0) 推荐(0)

delphi中Message消息的使用方法

摘要：实例1 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; const WM_ME=WM_USER+100; 阅读全文

posted @ 2016-12-19 13:42 ╰★张志峰★╮ 阅读(1023) 评论(0) 推荐(0)

通过发消息，来刷新界面的信息， 不失为一种好方法

摘要：代码： 代码 阅读全文

posted @ 2016-12-14 13:33 ╰★张志峰★╮ 阅读(449) 评论(0) 推荐(0)

Delphi 窗体失踪在最上面的代码

摘要：unit ufrmSysPubMessage;interfaceuses Windows, Forms, Messages, Classes, ExtCtrls, Controls, StdCtrls;type TfrmSysPubMessage = class(TForm) Image1: TIm 阅读全文

posted @ 2016-07-24 17:50 ╰★张志峰★╮ 阅读(528) 评论(0) 推荐(0)

Delphi 使用自定义消息

摘要：Delphi 使用自定义消息1、先用Const定义一个常量，例如const WM_MyMessage=WM_USER+$200;2、在要实现的unit中定义一个私有方法procedure doMyMessage(var msg:TMessage);message WM_MyMessage;3、实现这个私有方法procedure TForm1.doMyMessage(var msg:TMessage);begin//if msg.Msg= WM_MyMessage thenshowmessage('好啊')elseshowmessage('不好');end;4、最 阅读全文

posted @ 2013-08-30 15:12 ╰★张志峰★╮ 阅读(3238) 评论(0) 推荐(0)

Delphi——Window 消息 - 转载▼

摘要：Delphi是Borland公司的一种面向对象的可视化软件开发工具。 Delphi集中了Visual C++和Visual Basic两者的优点：容易上手、功能强大，特别是在界面设计、数据库编程、网络编程方面更有其独特的优势。 Delphi中的消息 消息是Windows发出的一个通知，它告诉应用程序某个事件发生了。在Delphi中，大多数情况下Windows的消息被封装在VCL的事件中，我们只需处理相应的VCL事件就可以了，但如果我们需要编写自己的控件、截获或过滤消息就必须深入研究Win32的消息处理机制。 在Delphi中消息以TMessage记录的方式定义。打开Message.pas文件， 阅读全文

posted @ 2013-08-30 13:51 ╰★张志峰★╮ 阅读(692) 评论(0) 推荐(0)

delphi 自定义消息

摘要：delphi 自定义消息消息描述Tmsg是 Windows系统用来记录描述一个具体的windows消息的。就是windows 用于封装应用程序及系统程序发生的消息，它是操作系统使用的。Tmessage 则封装了TMsg的参数，是应用程序响应的消息。该消息记载了消息的编号，最重要的就是它携带的两个参数。一般接收对象要定义处理句柄，然后对收到的消息 进行处理。如果不定义处理句柄，就交给祖先类去处理。我们在应用程序中使用的是TMessage 消息，而不是TMsg消息。消息结构Windows消息结构---Tmsg：typedef struct tagMSG { HWND hwnd; UINT mess 阅读全文

posted @ 2013-08-30 13:49 ╰★张志峰★╮ 阅读(1104) 评论(0) 推荐(0)