Delphi Win API 消息函数 SendMessage函数

沙汀發表於 2019-9-11 09:13:00

Delphi Win API 消息函数 SendMessage函数

Delphi中SendMessage使用说明
1、SendMessage基础知识  函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。  函数原型：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">LRESULT SendMessage（
HWND hWnd，//其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口，但消息不被发送到子窗口。
UINT Msg， //指定被发送的消息。用于区别其他消息的常量值.
WPARAM wParam，//指定附加的消息指定信息。通常是一个与消息有关的常量值，也可能是窗口或控件的句柄.
LPARAM IParam//指定附加的消息指定信息。通常是一个指向内存中数据的指针。
）； </pre>
</div>
返回值：返回值指定消息处理的结果，依赖于所发送的消息。  备注：需要用HWND_BROADCAST通信的应用程序应当使用函数RegisterWindowMessage来为应用程序间的通信取得一个唯一的消息。  如果指定的窗口是由调用线程创建的，则窗口程序立即作为子程序调用。如果指定的窗口是由不同线程创建的，则系统切换到该线程并调用恰当的窗口程序。线程间的消息只有在线程执行消息检索代码时才被处理。发送线程被阻塞直到接收线程处理完消息为止。  Windows CE：Windows CE不支持Windows桌面平台支持的所有消息。使用SendMesssge之前，要检查发送的消息是否被支持。
附:Delphi中SendMessage使用技巧
Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。
 
2、用SendMessage向控件发送消息  在编程中，有时需要控件以特殊的风格显示，而这种要求又无法通过设置控件属性实现。例如，读取客户列表并显示在下拉框供用户选择，如果下拉框宽度太窄，则不能全部显示；如果将宽度定得太宽，界面又有不紧凑之感。因此希望能在运行期动态地确定下拉框显示区域的宽度，这种要求如果不用SendMessage函数就很难实现。  解决办法是：在读数据库时计算字符串的显示宽度，用显示宽度的最大值确定下拉框显示区域的宽度。再用SendMessage函数向下拉框发送 CB_SETDROPPEDWIDTH 消息和宽度值，下拉框根据消息中传来的信息，就可以进行正确显示。 部分源程序代码如下：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">i:=0; //计数
MaxWidth:=0;
Query1.SQL.Clear;
Query1.SQL.Add(‘select Company from Customer’);
Query1.Open;
//读客户列表到下拉框
while not Query1.Eof do begin
　ComboBox1.Items.add(Query1.FieldByName(‘Company’).AsString);
　Width:=ComboBox1.Font.Size ＊ Length(ComboBox1.Items);
　if Width>MaxWidth then MaxWidth:=Width; //找出最大值
　Query1.Next;
　i:=i＋1;
end;
Query1.Close;
ComboBox1.Text:=ComboBox1.Items;
SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH,MaxWidth,0); //发送消息以确定显示区域的宽度　</pre>
</div>
利用SendMessage函数还可以实现一些有趣的效果，例如在按钮的Click事件中加入如下语句： 
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">SendMessage(Button.Handle,BM_SETSTYLE, BS_RADIOBUTTON,1); </pre>
</div>
运行后点击按钮，就可以把按钮变成一个收音机按钮。
 
3、控件接收SendMessage消息  上面讨论了用SendMessage向控件发送消息的过程。但凡事有利就有弊，用SendMessage发送的消息在处理上存在着一定困难。因为该消息不经过消息队列，所以无法用OnMessage方式来指定对消息的响应，甚至用HookMainWindow也不行，因为消息直接发送到控件，绕过了主窗体。要对这种类型的消息作出响应，需要重载控件的WndProc方法。
例如，对于一个列表框，滚动条的滚动消息就是用SendMessage方式发送的，因此该消息不在TlistBox的事件列表中。下面是处理控件响应该滚动消息的具体步骤。
 
3.1 首先从TlistBox继承一个TmyListBox类，并重载WndProc方法。在程序中加入下列定义： 
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">type
TMyListBox=class(TListBox)
private
procedure WndProc(var Msg: TMessage); override; //重载WndProc，处理发送到控件的消息
public
end; 　</pre>
</div>
其中WndProc方法指定控件对消息的响应，输入参数是TMessage类型，该数据类型是一个记录，包含了消息代码和消息的参数，消息参数可以用Longint或Word方式获得。
 
3.2 对滚动事件做出响应，在WndProc方法中加入如下处理代码： 
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">if (Msg.Msg=WM_VSCROLL) and (Msg.WParamLo=SB_ENDSCROLL) then
begin
//获得鼠标位置对应的列
　　ItemIndex:=ItemAtPos(Point,true);
　　Form1.Edit1.Text:=inttostr(ItemIndex);
　　inherited;
end
elseinherited; </pre>
</div>
当程序接收到WM_VSCROLL消息，且WParamLo参数为SB_ENDSCROLL时，表示竖直滚动条停止滚动，就可以用  ItemAtPos方法确定与鼠标位置对应的ItemIndex。ItemAtPos方法的Point参数是一个TPoint类型的变量，用来保存鼠标的位置。
 
3.3 定义方法ListBoxMouseMove，在鼠标移动时，将当前位置保存在Point中： 
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">procedure TForm1.ListBoxMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
begin
　　Point.X:=X;
　　Point.Y:=Y;
end;</pre>
</div>
 
3.4 在运行期创建和初始化列表框，并指定列表框的MouseMove事件对应上一步定义的ListBoxMouseMove方法。
在主窗体的Create事件中输入下面的代码：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">begin
Point.X:=0;
Point.Y:=0;

//创建自定义列表框
List:=TMyListBox.Create(Form1);
List.Parent:=Form1;
List.Left:=5;
List.Top:=30;
List.Width:=150;
List.Height:=200;
for i:=0 to 300 do
begin
List.Items.Add(inttostr(i)); //初始化
end;
end;
</pre>
</div>
　　
3.5 指定处理MouseMove事件的方法 
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">List.OnMouseMove := ListBoxMouseMove; end;
</pre>
</div>
 
4、其他示例
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">TTreeView:
(引用CommCtrl)
SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0));　设置TV背景颜色
SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0);　　//鼠标左键按下
SendMessage(Button.Handle,WM_LBUTTONUP,0,0);　　　//鼠标左键抬起
SendMessage(Edit.Handle,WM_SETTEXT,255,Integer(PChar('abc')));　//传递文本
SendMessage(Edit.Handle,WM_Char,Wparam('Q'),2);　　//传递字符
SendMessage(Button.Handle,BM_SETSTYLE,BS_RADIOBUTTON,1);　　//改变Button风格
SendMessage(ComboBox.Handle,CB_SETDROPPEDWIDTH,300,0);　　//改变CBDownWidth
WM_CUT、WM_COPY和WM_PASTE　　//剪切，复制，粘帖

//实现任意组合键
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), 0, 0);
keybd_event(ord('V'), MapVirtualKey(ord('V'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_Control, MapVirtualKey(VK_Control, 0), KEYEVENTF_KEYUP, 0);
</pre>
</div>
　　
 5、SendMessage的参数介绍
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">LRESULT SendMessage（
HWND hWnd，//其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口，但消息不被发送到子窗口。
UINT Msg， //指定被发送的消息。用于区别其他消息的常量值.
WPARAM wParam，//指定附加的消息指定信息。通常是一个与消息有关的常量值，也可能是窗口或控件的句柄.
LPARAM IParam//指定附加的消息指定信息。通常是一个指向内存中数据的指针。
）； </pre>
</div>
　　
wMsg参数常量值：  　　#DeFine WM_CREATE 0x01 　　创建一个窗口  　　#DeFine WM_DESTROY 0x02 　　当一个窗口被破坏时发送  　　#DeFine WM_MOVE 0x03 　　移动一个窗口  　　#DeFine WM_SIZE 0x05 　　改变一个窗口的大小  　　#DeFine WM_ACTIVATE 0x06 　　一个窗口被激活或失去激活状态  　　#DeFine WM_SETFOCUS 0x07 　　一个窗口获得焦点  　　#DeFine WM_KILLFOCUS 0x08 　　一个窗口失去焦点  　　#DeFine WM_ENABLE 0x0A 　　一个窗口改变成Enable状态  　　#DeFine WM_SETREDRAW 0x0B 　　设置窗口是否能重画  　　#DeFine WM_SETTEXT 0x0C 　　应用程序发送此消息来设置一个窗口的文本  　　#DeFine WM_GETTEXT 0x0D 　　应用程序发送此消息来复制对应窗口的文本到缓冲区  　　#DeFine WM_GETTEXTLENGTH 0x0E 　　得到与一个窗口有关的文本的长度（不包含空字符）  　　#DeFine WM_PAINT 0x0F 　　要求一个窗口重画自己  　　#DeFine WM_CLOSE 0x10 　　当一个窗口或应用程序要关闭时发送一个信号  　　#DeFine WM_QUERYENDSESSION 0x11 　　当用户选择结束对话框或程序自己调用ExitWindows函数  　　#DeFine WM_QUIT 0x12 　　用来结束程序运行  　　#DeFine WM_QUERYOPEN 0x13 　　当用户窗口恢复以前的大小位置时，把此消息发送给某个图标  　　#DeFine WM_ERASEBKGND 0x14 　　当窗口背景必须被擦除时（例在窗口改变大小时）  　　#DeFine WM_SYSCOLORCHANGE 0x15 　　当系统颜色改变时，发送此消息给所有顶级窗口  　　#DeFine WM_ENDSESSION 0x16 　　当系统进程发出WM_QUERYENDSESSION消息后，此消息发送给应用程序，通知它对话是否结束  　　#DeFine WM_SHOWWINDOW 0x18 　　当隐藏或显示窗口是发送此消息给这个窗口  　　#DeFine WM_ACTIVATEAPP 0x1C 　　发此消息给应用程序哪个窗口是激活的，哪个是非激活的  　　#DeFine WM_FONTCHANGE 0x1D 　　当系统的字体资源库变化时发送此消息给所有顶级窗口  　　#DeFine WM_TIMECHANGE 0x1E 　　当系统的时间变化时发送此消息给所有顶级窗口  　　#DeFine WM_CANCELMODE 0x1F 　　发送此消息来取消某种正在进行的摸态（操作）  　　#DeFine WM_SETCURSOR 0x20 　　如果鼠标引起光标在某个窗口中移动且鼠标输入没有被捕获时，就发消息给某个窗口  　　#DeFine WM_MOUSEACTIVATE 0x21 　　当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口  　　#DeFine WM_CHILDACTIVATE 0x22 　　发送此消息给MDI子窗口当用户点击此窗口的标题栏，或当窗口被激活，移动，改变大小  　　#DeFine WM_QUEUESYNC 0x23 　　此消息由基于计算机的训练程序发送，通过WH_JOURNALPALYBACK的hook程序分离出用户输入消息  　　#DeFine WM_GETMINMAXINFO 0x24 　　此消息发送给窗口当它将要改变大小或位置  　　#DeFine WM_PAINTICON 0x26 　　发送给最小化窗口当它图标将要被重画  　　#DeFine WM_ICONERASEBKGND 0x27 　　此消息发送给某个最小化窗口，仅当它在画图标前它的背景必须被重画  　　#DeFine WM_NEXTDLGCTL 0x28 　　发送此消息给一个对话框程序去更改焦点位置  　　#DeFine WM_SPOOLERSTATUS 0x2A 　　每当打印管理列队增加或减少一条作业时发出此消息  　　#DeFine WM_DRAWITEM 0x2B 　　当button，combobox，listbox，menu的可视外观改变时发送  　　#DeFine WM_MEASUREITEM 0x2C 　　当button, combo box, list box, list view control, or menu item 被创建时  　　#DeFine WM_VKEYTOITEM 0x2E 　　此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息  　　#DeFine WM_CHARTOITEM 0x2F 　　此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息  　　#DeFine WM_SETFONT 0x30 　　当绘制文本时程序发送此消息得到控件要用的颜色  　　#DeFine WM_GETFONT 0x31 　　应用程序发送此消息得到当前控件绘制文本的字体  　　#DeFine WM_SETHOTKEY 0x32 　　应用程序发送此消息让一个窗口与一个热键相关连  　　#DeFine WM_GETHOTKEY 0x33 　　应用程序发送此消息来判断热键与某个窗口是否有关联  　　#DeFine WM_QUERYDRAGICON 0x37 　　此消息发送给最小化窗口，当此窗口将要被拖放而它的类中没有定义图标，应用程序能返回一个图标或光标的句柄，当用户拖放图标时系统显示这个图标或光标  　　#DeFine WM_COMPAREITEM 0x39 　　发送此消息来判定combobox或listbox新增加的项的相对位置  　　#DeFine WM_COMPACTING 0x41 　　显示内存已经很少了  　　#DeFine WM_WINDOWPOSCHANGING 0x46 　　发送此消息给那个窗口的大小和位置将要被改变时，来调用setwindowpos函数或其它窗口管理函数  　　#DeFine WM_WINDOWPOSCHANGED 0x47 　　发送此消息给那个窗口的大小和位置已经被改变时，来调用setwindowpos函数或其它窗口管理函数  　　#DeFine WM_POWER 0x48 　　当系统将要进入暂停状态时发送此消息  　　#DeFine WM_COPYDATA 0x4A 　　当一个应用程序传递数据给另一个应用程序时发送此消息  　　#DeFine WM_CANCELJOURNA 0x4B 　　当某个用户取消程序日志激活状态，提交此消息给程序  　　#DeFine WM_NOTIFY 0x4E 　　当某个控件的某个事件已经发生或这个控件需要得到一些信息时，发送此消息给它的父窗口  　　#DeFine WM_INPUTLANGCHANGEREQUEST 0x50 　　当用户选择某种输入语言，或输入语言的热键改变  　　#DeFine WM_INPUTLANGCHANGE 0x51 　　当平台现场已经被改变后发送此消息给受影响的最顶级窗口  　　#DeFine WM_TCARD 0x52 　　当程序已经初始化windows帮助例程时发送此消息给应用程序  　　#DeFine WM_HELP 0x53 　　此消息显示用户按下了F1，如果某个菜单是激活的，就发送此消息个此窗口关联的菜单，否则就发送给有焦点的窗口，如果当前都没有焦点，就把此消息发送给当前激活的窗口  　　#DeFine WM_USERCHANGED 0x54 　　当用户已经登入或退出后发送此消息给所有的窗口，当用户登入或退出时系统更新用户的具体设置信息，在用户更新设置时系统马上发送此消息  　　#DeFine WM_NOTIFYFORMAT 0x55 　　公用控件，自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构  　　#DeFine WM_CONTEXTMENU ?? 　　当用户某个窗口中点击了一下右键就发送此消息给这个窗口  　　#DeFine WM_STYLECHANGING 0x7C 　　当调用SETWINDOWLONG函数将要改变一个或多个窗口的风格时发送此消息给那个窗口  　　#DeFine WM_STYLECHANGED 0x7D 　　当调用SETWINDOWLONG函数一个或多个窗口的风格后发送此消息给那个窗口  　　#DeFine WM_DISPLAYCHANGE 0x7E 　　当显示器的分辨率改变后发送此消息给所有的窗口  　　#DeFine WM_GETICON 0x7F 　　此消息发送给某个窗口来返回与某个窗口有关连的大图标或小图标的句柄  　　#DeFine WM_SETICON 0x80 　　程序发送此消息让一个新的大图标或小图标与某个窗口关联  　　#DeFine WM_NCCREATE 0x81 　　当某个窗口第一次被创建时，此消息在WM_CREATE消息发送前发送  　　#DeFine WM_NCDESTROY 0x82 　　此消息通知某个窗口，非客户区正在销毁  　　#DeFine WM_NCCALCSIZE 0x83 　　当某个窗口的客户区域必须被核算时发送此消息  　　#DeFine WM_NCHITTEST 0x84 　　移动鼠标，按住或释放鼠标时发生  　　#DeFine WM_NCPAINT 0x85 　　程序发送此消息给某个窗口当它（窗口）的框架必须被绘制时  　　#DeFine WM_NCACTIVATE 0x86 　　此消息发送给某个窗口仅当它的非客户区需要被改变来显示是激活还是非激活状态  　　#DeFine WM_GETDLGCODE 0x87 　　发送此消息给某个与对话框程序关联的控件，widdows控制方位键和TAB键使输入进入此控件通过应  　　#DeFine WM_NCMOUSEMOVE 0xA0 　　当光标在一个窗口的非客户区内移动时发送此消息给这个窗口非客户区为：窗体的标题栏及窗的边框体  　　#DeFine WM_NCLBUTTONDOWN 0xA1 　　当光标在一个窗口的非客户区同时按下鼠标左键时提交此消息  　　#DeFine WM_NCLBUTTONUP 0xA2 　　当用户释放鼠标左键同时光标某个窗口在非客户区十发送此消息  　　#DeFine WM_NCLBUTTONDBLCLK 0xA3 　　当用户双击鼠标左键同时光标某个窗口在非客户区十发送此消息  　　#DeFine WM_NCRBUTTONDOWN 0xA4 　　当用户按下鼠标右键同时光标又在窗口的非客户区时发送此消息  　　#DeFine WM_NCRBUTTONUP 0xA5 　　当用户释放鼠标右键同时光标又在窗口的非客户区时发送此消息  　　#DeFine WM_NCRBUTTONDBLCLK 0xA6 　　当用户双击鼠标右键同时光标某个窗口在非客户区十发送此消息  　　#DeFine WM_NCMBUTTONDOWN 0xA7 　　当用户按下鼠标中键同时光标又在窗口的非客户区时发送此消息  　　#DeFine WM_NCMBUTTONUP 0xA8 　　当用户释放鼠标中键同时光标又在窗口的非客户区时发送此消息  　　#DeFine WM_NCMBUTTONDBLCLK 0xA9 　　当用户双击鼠标中键同时光标又在窗口的非客户区时发送此消息 
　　#DeFine WM_KEYFIRST 0x100 　　WM_KEYDOWN 按下一个键  　　#DeFine WM_KEYUP 0x101 　　释放一个键  　　#DeFine WM_CHAR 0x102 　　按下某键，并已发出WM_KEYDOWN， WM_KEYUP消息  　　#DeFine WM_DEADCHAR 0x103 　　当用translatemessage函数翻译WM_KEYUP消息时发送此消息给拥有焦点的窗口  　　#DeFine WM_SYSKEYDOWN 0x104 　　当用户按住ALT键同时按下其它键时提交此消息给拥有焦点的窗口  　　#DeFine WM_SYSKEYUP 0x105 　　当用户释放一个键同时ALT 键还按着时提交此消息给拥有焦点的窗口  　　#DeFine WM_SYSCHAR 0x106 　　当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后提交此消息给拥有焦点的窗口  　　#DeFine WM_SYSDEADCHAR 0x107 　　当WM_SYSKEYDOWN消息被TRANSLATEMESSAGE函数翻译后发送此消息给拥有焦点的窗口  　　#DeFine WM_INITDIALOG 0x110 　　在一个对话框程序被显示前发送此消息给它，通常用此消息初始化控件和执行其它任务  　　#DeFine WM_COMMAND 0x111 　　当用户选择一条菜单命令项或当某个控件发送一条消息给它的父窗口，一个快捷键被翻译  　　#DeFine WM_SYSCOMMAND 0x112 　　当用户选择窗口菜单的一条命令或当用户选择最大化或最小化时那个窗口会收到此消息  　　#DeFine WM_TIMER 0x113 　　发生了定时器事件  　　#DeFine WM_HSCROLL 0x114 　　当一个窗口标准水平滚动条产生一个滚动事件时发送此消息给那个窗口，也发送给拥有它的控件  　　#DeFine WM_VSCROLL 0x115 　　当一个窗口标准垂直滚动条产生一个滚动事件时发送此消息给那个窗口也，发送给拥有它的控件  　　#DeFine WM_INITMENU 0x116 　　当一个菜单将要被激活时发送此消息，它发生在用户菜单条中的某项或按下某个菜单键，它允许程序在显示前更改菜单  　　#DeFine WM_INITMENUPOPUP 0x117 　　当一个下拉菜单或子菜单将要被激活时发送此消息，它允许程序在它显示前更改菜单，而不要改变全部  　　#DeFine WM_MENUSELECT 0x11F 　　当用户选择一条菜单项时发送此消息给菜单的所有者（一般是窗口）  　　#DeFine WM_MENUCHAR 0x120 　　当菜单已被激活用户按下了某个键（不同于加速键），发送此消息给菜单的所有者  　　#DeFine WM_ENTERIDLE 0x121 　　当一个模态对话框或菜单进入空载状态时发送此消息给它的所有者，一个模态对话框或菜单进入空载状态就是在处理完一条或几条先前的消息后没有消息它的列队中等待  　　#DeFine WM_CTLCOLORMSGBOX 0x132 　　在windows绘制消息框前发送此消息给消息框的所有者窗口，通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置消息框的文本和背景颜色  　　#DeFine WM_CTLCOLOREDIT 0x133 　　当一个编辑型控件将要被绘制时发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置编辑框的文本和背景颜色  　　#DeFine WM_CTLCOLORLISTBOX 0x134 　　当一个列表框控件将要被绘制前发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置列表框的文本和背景颜色  　　#DeFine WM_CTLCOLORBTN 0x135 　　当一个按钮控件将要被绘制时发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置按纽的文本和背景颜色  　　#DeFine WM_CTLCOLORDLG 0x136 　　当一个对话框控件将要被绘制前发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置对话框的文本背景颜色  　　#DeFine WM_CTLCOLORSCROLLBAR 0x137 　　当一个滚动条控件将要被绘制时发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置滚动条的背景颜色  　　#DeFine WM_CTLCOLORSTATIC 0x138 　　当一个静态控件将要被绘制时发送此消息给它的父窗口通过响应这条消息，所有者窗口可以通过使用给定的相关显示设备的句柄来设置静态控件的文本和背景颜色  　　#DeFine WM_MOUSEFIRST 0x200 　　移动鼠标时发生 　　#DeFine WM_MOUSEMOVE 0x200 　　移动鼠标时发生，同WM_MOUSEFIRST 　　#DeFine WM_LBUTTONDOWN 0x201 　　按下鼠标左键  　　#DeFine WM_LBUTTONUP 0x202 　　释放鼠标左键 　　#DeFine WM_LBUTTONDBLCLK 0x203 　　双击鼠标左键  　　#DeFine WM_RBUTTONDOWN 0x204 　　按下鼠标右键 　　#DeFine WM_RBUTTONUP 0x205 　　释放鼠标右键
　　#DeFine WM_RBUTTONDBLCLK 0x206 　　双击鼠标右键 
　　#DeFine WM_MBUTTONDOWN 0x207 　　按下鼠标中键 　　#DeFine WM_MBUTTONUP 0x208 　　释放鼠标中键 　　#DeFine WM_MBUTTONDBLCLK 0x209 　　双击鼠标中键  　　#DeFine WM_MOUSEWHEEL 0x20A 　　当鼠标轮子转动时发送此消息个当前有焦点的控件 Buttons 　　
　　==================== 　　  　　BM_CLICK 　　button被点击消息  　　BM_GETCHECK 　　用于check boxes 或radio boxes 。查看是否 checked 了。　　  　　BM_GETSTATE 　　发送此消息，可返回 button 的状态，如是否被 checked；是否可用（不可用就变灰了）　　  　　BM_SETCHECK 　　如果已经 checked 了，发送此消息后，变为 unchecked，就是那个钩钩没被选上。ok？　　  　　BM_SETSTATE 　　设置 button被点击状态。  　　====================  　　Combo Boxes  　　  　　CB_ADDSTRING 　　添加字符串到 Combo Boxes 。  　　CB_DELETESTRING 　　删除 Combo Boxes 中的条目，既 item  　　CB_GETCOUNT 　　得到 Combo Boxes 条目 item 的数目  　　CB_GETCURSEL 　　返回 Combo Boxes 中被选条目在 Combo Boxes 中的位置，第一条为0, 如果没有条目或出错，则返回 -1  　　CB_GETDROPPEDSTATE 　　发送此消息，可判断 Combo Boxes 的list box 是否被放下，如果是，返回非零值，不是，则返回 0  　　CB_GETLBTEXT 　　得到 combo box 的条目的text。返回值是这个text 的长度。  　　CB_GETLBTEXTLEN 　　返回值是条目的 text 的长度。  　　CB_INSERTSTRING 　　插入字符串条目到 combo box 中  　　CB_RESETCONTENT 　　清空 combo box 所有条目  　　CB_SETCURSEL 　　设置 combo box 被选条目。  　　CB_SHOWDROPDOWN 　　让 combo box 的listbox 下拉。既显出所有条目  　　===================  　　Edit Controls  　　  　　EM_CANUNDO　　决定上一次操作是否可以 undo （撤消操作）。如果可以，则可发送 EM_undo  　　EM_GETFIRSTVISIBLELINE 　　在 multi-line 控件中，找到最上层的可见的行号。次行号是相对于所有行的。  　　EM_GETPASSWORDCHAR 　　返回密码框的字符集。既是查看密码。  　　EM_GETSEL 　　返回在可编辑控件中，被选择（HIGHLIGHT高量选择）的字符集的起点和终点的位置。  　　用 sendmessage 的wParam 参数返回起点位置，lParam 返回终点位置  　　EM_REPLACESEL 　　用不同的字符串替换可编辑控件中的字符串，如果可编辑控件中没有字符串，则此消息变为添加字符串  　　EM_SETPASSWORDCHAR 　　在可编辑控件中设置密码字符集，既用* 代替  　　EM_UNDO 　　发送操作撤消消息。  　　======================  　　IP Address Control  　　===================  　　  　　IPM_CLEARADDRESS 　　清除 IP 地址控件（IP Address control）的内容  　　IPM_GETADDRESS 　　从IP 地址控件获得存储在它中的 IP 地址信息/  　　IPM_ISBLANK 　　决定 IP 地址控件是否可以为空值。既 127.0.0.1 之类的地址为空。  　　IPM_SETADDRESS 　　在 IP 地址控件中设置 IP 地址。  　　IPM_SETFOCUS 　　在 IP 地址控件中，当需要输入 IP 地址时，使之获得键盘输入焦点  　　IPM_SETRANGE 　　设置输入IP 地址的有效范围  　　=====================  　　Media Control Interface (MCI)  　　=============================  　　MM_MCINOTIFY 告诉窗体 MCI 命令完成的状态. 这个状态包括 success, failure, 或其它事件  　　  　　Menus  　　=============================  　　WM_COMMAND 当用户选择菜单中的项目后,将向窗体发送此消息.窗体受到此消息后,再决定下一个行为 　　WM_INITMENU 当菜单准备显示前,向窗体发送此消息,窗体将初始化菜单项. 　　WM_SYSCOMMAND 向窗体发送用户点击系统菜单消息.窗体将响应这个消息,决定下个行为. 　　================  　　Windows  　　=====================  　　  　　WM_CLOSE 　　发送让窗体关闭的消息，有些窗体会在此时弹出个关闭对话框。　　  　　WM_GETTEXT 　　返回窗体标题栏（caption 属性）。需要先用WM_GETTEXTLENGTH 获得字符串长度　　  　　WM_GETTEXTLENGTH 　　见上！　　  　　WM_HELP 　　发送此消息后，将显示指定的 HELP 文件  　　WM_SETTEXT 　　设置窗体标题栏。  　　==============================  　　List Boxes  　　===============  　　  　　LB_ADDSTRING 　　在条目中添加字符串  　　LB_DELETESTRING 　　删除一个条目. 条目序号是从 0 开始的.  　　LB_GETCOUNT 　　得到条目总数.  　　LB_GETCURSEL 　　得到单选的list box 的选项条目的序号  　　LB_GETSEL 　　判断 list 的条目是否被选上, 如果选上了,则返回 >0 的值.否则返回 0 ,表示用户没选择条目  　　LB_GETSELCOUNT 　　获得可多选的list , 被用户选择的条目的个数.  　　LB_GETSELITEMS 　　返回可多选的list 的被选条目的序号. 可返回数组.  　　LB_GETTEXT 　　得到 list中的一个条目的 text 值  　　LB_GETTEXTLEN 　　得到 list中的一个条目的 text 值的长度  　　LB_INSERTSTRING 　　在list 中，插入一个条目。如果成功，将返回插入后，此条目的序号。  　　LB_RESETCONTENT 　　清空所有的 list 中的条目。  　　LB_SETCURSEL 　　对单选的list box，设定用户选择条目的具体值  　　LB_SETSEL 　　对多选的list box，设定用户选择条目的具体值  　　=======================================================  　　Mouse  　　==================  　　WM_LBUTTONDBLCLK 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标左键已双击。返回值 0  　　WM_LBUTTONDOWN 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标左键已点击，返回值 0  　　WM_LBUTTONUP 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标左键已释放，返回值 0  　　WM_MBUTTONDBLCLK 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标中键已双击。返回值 0  　　WM_MBUTTONDOWN 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标中键已点击，返回值 0  　　WM_MBUTTONUP 　　当鼠标在一个窗体范围内时，告诉此窗体鼠标中键已释放，返回值 0 
 
 
6、其他扩展
SendMessageA  说明: 调用一个窗口的窗口函数，将一条消息发给那个窗口。除非消息处理完毕，否则该函数不会返回SendMessage所包含4个参数:  1. hwnd 32位的窗口句柄窗口可以是任何类型的屏幕对象，因为Win32能够维护大多数可视对象的句柄  2. wMsg 用于区别其他消息的常量值，这些常量可以是Windows单元中预定义的常量，也可以是自定义的常量  3. wParam 通常是一个与消息有关的常量值，也可能是窗口或控件的句柄  4. lParam 通常是一个指向内存中数据的指针。由于WParm、lParam和Pointer都是32位的，因此，它们之间可以相互转换  wMsg函数  ★WM_Create 创建一个窗口  ★WM_DESTROY 当一个窗口被破坏时发送  ★WM_MOVE 移动一个窗口  ★WM_SIZE 改变一个窗口的大小  ★WM_ACTIVATE 一个窗口被激活或失去激活状态  ★WM_SETFOCUS 一个窗口获得焦点  ★WM_KILLFOCUS 一个窗口失去焦点  ★WM_ENABLE 一个窗口改变成Enable状态  ★WM_SETREDRAW 设置窗口是否能重画  ★WM_SETTEXT 应用程序发送此消息来设置一个窗口的文本  ★WM_GETTEXT 应用程序发送此消息来复制对应窗口的文本到缓冲区  ★WM_GETTEXTLENGTH 得到与一个窗口有关的文本的长度（不包含空字符）  ★WM_PAINT 要求一个窗口重画自己  ★WM_CLOSE 当一个窗口或应用程序要关闭时发送一个信号  ★WM_QUERYENDSESSION 用户选择结束对话框或程序自己调用ExitWindows函数  ★WM_QUIT 用来结束程序运行  ★WM_QUERYOPEN 用户窗口恢复以前的大小位置时，把此消息发送给某个图标  ★WM_ERASEBKGND 当窗口背景必须被擦除时（例在窗口改变大小时）  ★WM_SYSCOLORCHANGE 当系统颜色改变时，发送此消息给所有顶级窗口  ★WM_QUERYENDSESSION 消息后，此消息发送给应用程序，通知它对话是否结束  ★WM_SHOWWINDOW 当隐藏或显示窗口是发送此消息给这个窗口  ★WM_ACTIVATEAPP 发此消息给应用程序哪个窗口是激活的，哪个是非激活的  ★WM_FONTCHANGE 当系统的字体资源库变化时发送此消息给所有顶级窗口  ★WM_TIMECHANGE 当系统的时间变化时发送此消息给所有顶级窗口  ★WM_CANCELMODE 发送此消息来取消某种正在进行的摸态（操作）  ★WM_SETCURSOR 如果鼠标引起光标在某个窗口中移动  ★WM_ENDSESSION 当系统进程发出且鼠标输入没有被捕获时，就发消息给某个窗口  ★WM_MOUSEACTIVATE 当光标在某个非激活的窗口中而用户正按着鼠标的某个键发送此消息给当前窗口  ★WM_CHILDACTIVATE 送此消息给MDI子窗口当用户点击此窗口的标题栏，或当窗口被激活，移动，改变大小  ★WM_QUEUESYNC 此消息由基于计算机的训练程序发送,通过 WH_JOURNALPALYBACK的hook程序分离出用户输入消息  ★WM_GETMINMAXINFO 此消息发送给窗口当它将要改变大小或位置  ★WM_PAINTICON 发送给最小化窗口当它图标将要被重画  ★WM_ICONERASEBKGND 此消息发送给某个最小化窗口，仅当它在画图标前它的背景必须被重画  ★WM_NEXTDLGCT★发送此消息给一个对话框程序去更改焦点位置  ★WM_SPOOLERSTATUS 每当打印管理列队增加或减少一条作业时发出此消息  ★WM_DRAWITEM 当button，combobox，listbox，menu的可视外观改变时发送  ★WM_MEASUREITEM 当button, combobox, listbox, listview control, or menuitem 被创建时  ★WM_VKEYTOITEM 此消息有一个LBS_WANTKEYBOARDINPUT风格的发出给它的所有者来响应WM_KEYDOWN消息  ★WM_CHARTOITEM 此消息由一个LBS_WANTKEYBOARDINPUT风格的列表框发送给他的所有者来响应WM_CHAR消息  ★WM_SETFONT 当绘制文本时程序发送此消息得到控件要用的颜色  ★WM_GETFONT 应用程序发送此消息得到当前控件绘制文本的字体  ★WM_SETHOTKEY 应用程序发送此消息让一个窗口与一个热键相关连  ★WM_GETHOTKEY 应用程序发送此消息来判断热键与某个窗口是否有关联  ★WM_QUERYDRAGICON 此消息发送给最小化窗口，当此窗口将要被拖放而它的类中没有定义图标，应用程序能返回一个图标或光标的句柄，当用户拖放图标时系统显示这个图标或光标  ★WM_COMPAREITEM 发送此消息来判定combobox或listbox新增加的项的相对位置  ★WM_COMPACTING 显示内存已经很少了  ★WM_WINDOWPOSCHANGING 发送此消息给那个窗口的大小和位置将要被改变时，来调用setwindowpos函数或其它窗口管理函数  ★WM_WINDOWPOSCHANGED 发送此消息给那个窗口的大小和位置已经被改变时，来调用setwindowpos函数或其它窗口管理函数  ★WM_POWER 当系统将要进入暂停状态时发送此消息  ★WM_COPYDATA 当一个应用程序传递数据给另一个应用程序时发送此消息  ★WM_CANCELJOURNA 当某个用户取消程序日志激活状态，提交此消息给程序  ★WM_NOTIFY 当某个控件的某个事件已经发生或这个控件需要得到一些信息时，发送此消息给它的父窗口  ★WM_INPUTLANGCHANGEREQUEST 当用户选择某种输入语言，或输入语言的热键改变  ★WM_INPUTLANGCHANGE 当平台现场已经被改变后发送此消息给受影响的最顶级窗口  ★WM_TCARD 当程序已经初始化windows帮助例程时发送此消息给应用程序  ★WM_HELP 此消息显示用户按下了F1，如果某个菜单是激活的，就发送此消息个此窗口关联的菜单，否则就发送给有焦点的窗口，如果当前都没有焦点，就把此消息发送给当前激活的窗口  ★WM_USERCHANGED 当用户已经登入或退出后发送此消息给所有的窗口，当用户登入或退出时系统更新用户的具体设置信息，在用户更新设置时系统马上发送此消息  ★WM_NOTIFYFORMAT 公用控件，自定义控件和他们的父窗口通过此消息来判断控件是使用ANSI还是UNICODE结构
示例1：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">function EnumChildWindowsProc(hwnd, lparam: Integer): Boolean;
var
buffer: array of char;
begin
Result := True;
GetClassName(hwnd,buffer,256);
if StrPas(Buffer)='Edit' then
begin
SendMessage(hwnd,WM_GETTEXT,256,lparam);
Result:=False;
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
hwnd: Integer;
buffer: array of char;
Begin
hwnd := FindWindow('CabinetWClass',nil);
if hwnd<> 0 then
begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Longint(@buffer));
Caption := StrPas(buffer);
end;
end;
</pre>
</div>
 
示例2：（实现对话框自动定时关闭），在程序中插入一个定时器，设置好时间，在对话框使用前激活定时器。插入代码：
<div class="cnblogs_Highlighter">
<pre class="brush:delphi;gutter:true;">procedure TfrmMain.Timer1_AutoCloseTimer(Sender: TObject);
var
AHandle: THandle;
begin
AHandle := FindWindow('TMessageForm', PChar(application.Title));
if AHandle > 0 then
SendMessage(AHandle, WM_CLOSE, 0, 0);
end;
</pre>
</div>
 
创建时间:2019.09.11　　更新时间：2020.03.06
 

</div>
<div id="MySignature" role="contentinfo">
博客园滔Roy https://www.cnblogs.com/guorongtao 希望内容对你有所帮助，谢谢！ 
来源：https://www.cnblogs.com/guorongtao/p/11504350.html

頁: [1]

琼殿技术论坛's Archiver

Delphi Win API 消息函数 SendMessage函数