Delphi中SendMessage使用说明

SendMessage基础知识
函数功能：该函数将指定的消息发送到一个或多个窗口。此函数为指定的窗口调用窗口程序，直到窗口程序处理完消息再返回。而函数PostMessage不同，将一个消息寄送到一个线程的消息队列后立即返回。
函数原型：LRESULT SendMessage（HWND hWnd，UINT Msg，WPARAM wParam，LPARAM IParam）；
参数：
hWnd：其窗口程序将接收消息的窗口的句柄。如果此参数为HWND_BROADCAST，则消息将被发送到系统中所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口，但消息不被发送到子窗口。
Msg：指定被发送的消息。
wParam：指定附加的消息指定信息。
IParam：指定附加的消息指定信息。
返回值：返回值指定消息处理的结果，依赖于所发送的消息。
备注：需要用HWND_BROADCAST通信的应用程序应当使用函数RegisterWindowMessage来为应用程序间的通信取得一个唯一的消息。
如果指定的窗口是由调用线程创建的，则窗口程序立即作为子程序调用。如果指定的窗口是由不同线程创建的，则系统切换到该线程并调用恰当的窗口程序。线程间的消息只有在线程执行消息检索代码时才被处理。发送线程被阻塞直到接收线程处理完消息为止。
Windows CE：Windows CE不支持Windows桌面平台支持的所有消息。使用SendMesssge之前，要检查发送的消息是否被支持。

附:Delphi中SendMessage使用技巧

Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。

用SendMessage向控件发送消息
在编程中，有时需要控件以特殊的风格显示，而这种要求又无法通过设置控件属性实现。例如，读取客户列表并显示在下拉框供用户选择，如果下拉框宽度太窄，则不能全部显示；如果将宽度定得太宽，界面又有不紧凑之感。因此希望能在运行期动态地确定下拉框显示区域的宽度，这种要求如果不用SendMessage函数就很难实现。
解决办法是，在读数据库时计算字符串的显示宽度，用显示宽度的最大值确定下拉框显示区域的宽度。再用SendMessage函数向下拉框发送CB_SETDROPPEDWIDTH消息和宽度值，下拉框根据消息中传来的信息，就可以进行正确显示。
　　部分源程序代码如下：
　　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[0];
　　//发送消息以确定显示区域的宽度
　　SendMessage(ComboBox1.Handle, CB_SETDROPPEDWIDTH,MaxWidth,0);
利用SendMessage函数还可以实现一些有趣的效果，例如在按钮的Click事件中加入如下语句：
SendMessage(Button.Handle,BM_SETSTYLE, BS_RADIOBUTTON,1);
运行后点击按钮，就可以把按钮变成一个收音机按钮。

控件接收SendMessage消息
上面讨论了用SendMessage向控件发送消息的过程。但凡事有利就有弊，用SendMessage发送的消息在处理上存在着一定困难。因为该消息不经过消息队列，所以无法用OnMessage方式来指定对消息的响应，甚至用HookMainWindow也不行，因为消息直接发送到控件，绕过了主窗体。要对这种类型的消息作出响应，需要重载控件的WndProc方法。

例如，对于一个列表框，滚动条的滚动消息就是用SendMessage方式发送的，因此该消息不在TlistBox的事件列表中。下面是处理控件响应该滚动消息的具体步骤。

1.首先从TlistBox继承一个TmyListBox类，并重载WndProc方法。在程序中加入下列定义：
type
TMyListBox=class(TListBox)
private
procedure WndProc(var Msg: TMessage);
override;
//重载WndProc，处理发送到控件的消息
public
end;
其中WndProc方法指定控件对消息的响应，输入参数是TMessage类型，该数据类型是一个记录，包含了消息代码和消息的参数，消息参数可以用Longint或Word方式获得。

2.对滚动事件做出响应，在WndProc方法中加入如下处理代码：
　　if (Msg.Msg=WM_VSCROLL) and
(Msg.WParamLo=SB_ENDSCROLL) then
　　　begin
//获得鼠标位置对应的列
　　　　ItemIndex:=ItemAtPos(Point,true);
　　Form1.Edit1.Text:=inttostr(ItemIndex);
　　inherited;
　　　end
　　else
　　 inherited;
当程序接收到WM_VSCROLL消息，且WParamLo参数为SB_ENDSCROLL时，表示竖直滚动条停止滚动，就可以用
ItemAtPos方法确定与鼠标位置对应的ItemIndex。ItemAtPos方法的Point参数是一个TPoint类型的变量，用来保存鼠标的位置。

3.定义方法ListBoxMouseMove，在鼠标移动时，将当前位置保存在Point中：
procedure TForm1.ListBoxMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
　　　begin
　　　　Point.X:=X;
　　　　Point.Y:=Y;
　　　end;

4.在运行期创建和初始化列表框，并指定列表框的MouseMove事件对应上一步定义的ListBoxMouseMove方法。

在主窗体的Create事件中输入下面的代码：

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;

5.指定处理MouseMove事件的方法
List.OnMouseMove := ListBoxMouseMove; end;

----------------------------------------------------------------------------------------
SendMessage参数
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);

　Windows是一个消息驱动式系统，SendMessage是应用程序和应用程序之间进行消息传递的主要手段之一，这里我搜集整理了SendMessage函数的详细参数介绍，以备自用。
　　VFP声明:
　　DECLARE INTEGER SendMessage IN user32;
　　INTEGER hWnd,;
　　INTEGER wMsg,;
　　INTEGER wParam,;
　　INTEGER lParam
　　参数1：hWnd-窗口句柄。窗口可以是任何类型的屏幕对象。
　　参数2：wMsg-用于区别其他消息的常量值.
　　参数3：wParam-通常是一个与消息有关的常量值，也可能是窗口或控件的句柄.
　　参数4: lParam-通常是一个指向内存中数据的指针。
　　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
　　最近越来越觉得，windows果然是很不安全啊，，，想要学windows平台的编程，就要学mfc，在win上，mfc简直无所不能。。。
　　
　
　Trackback:
http://tb.blog.csdn.net/TrackBack.aspx?PostId=2185728
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结构

-----------------------------------------------------
function EnumChildWindowsProc(hwnd, lparam: Integer): Boolean;
var
buffer: array[0..255] 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[0..255] of char;
Begin
hwnd := FindWindow('CabinetWClass',nil);
if hwnd<> 0 then
begin
EnumChildWindows(hwnd,@EnumChildWindowsProc,Longint(@buffer[0]));
Caption := StrPas(buffer);
end;
end;

-----------------------------------------------------
下列办法可实现对话框自动定时关闭：
在程序中插入一个定时器，设置好时间，在对话框使用前激活定时器。插入代码：

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;

参考: 

http://ifso.iteye.com/blog/1280927

====================================================================================================================

SendMessage(PostMessage)详解

Windows API（应用程序接口）是Windows系列软件为程序开发人员提供的火力强大的“武器库”，在这个武器库中，有很多极具威力的武器，SendMessage就是其中之一，它的功能非常丰富，灵活使用这个函数，会给编程工作带来很多便利。本文以Visual Basic为例，结合几个具体的例子介绍该函数的功能。

一、SendMeaasge函数简介
顾名思义，SendMessage函数的功能是“发送消息”，即将一条消息发送到指定对象（操作系统、窗口或控件等）上，以产生特定的动作（如滚屏、修改对象外观等）。
SendMessage函数在VB中的函数说明如下：

Declare Function SendMessage Lib "user32" Alias "SendMessageA" (Byval hwnd As Long, Byval wMsg As Long,Byval wParam As Long,lParam As Any) As Long
其中四个自变量的含义和说明如下：

hWnd：对象的句柄。希望将消息传送给哪个对象，就把该对象的句柄作为实参传送，在VB中可以简单地用“对象.hWnd”获得某个对象的句柄，如Text1.hWnd和Form1.hWnd分别可以得到Text1和Form1的句柄。
wMsg：被发送的消息。根据具体需求和不同的对象，将不同的消息作为实参传送，以产生预期的动作。
wParam、lParam：附加的消息信息。这两个是可选的参数，用来提供关于wMsg消息更多的信息，不同的wMsg可能使用这两个参数中的0、1或2个，如果不需要哪个附加参数，则将实参赋为NULL（在VB中赋为0）
。
在简单了解了SendMessage函数的格式和功能后，让我们以几个例子来看看它的威力。

二、SendMessage函数使用实例

例1 多行TextBox中的快速处理功能在处理多行TextBox时我们经常会碰到以下几种情况：
希望了解多行TextBox中目前共有多少行文字。
想快速返回第N行的文字。
对于上面的情况，如果用VB自身的语句或函数来实现的话，要写不短的代码，而且由于要采用顺序查找的办法来完成，因此代码的执行效率也很低。如果使用SendMessage函数则可以大大减少代码量，并大幅度的提高执行效率。
用SendMessage函数完成上面两个任务的方法非常简单，每个任务只需简单地发送一条消息给多行TextBox即可，两个消息分别为：EM_GETLINECOUNT、EM_GETLINE，其它参数和返回值见附表。
下面用一个简单的实例演示这两个功能：
新建工程，在Form1上添加三个TextBox（名称分别为Text1、txtLineCount、TxtString，将Text1的Multi
Line属性置为True）、三个标签和一个命令按钮。为工程添加一个模块Moudle1，在其中写如下声明（其中
SendMessage函数的声明可以从VB的“API浏览器”中复制）： 消息常量名 消息值 wParam lParam 返回值 EM_GETLINECOUNT &HBA 未用 未用 行数 EM_GETLINE &HC4 要找的行号 存结果的字节串 结果字节串的字节数
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long,lParam As Any) As Long
Public Const EM_GETLINECOUNT=&HBA
Public Const EM_GETLINE=&HC4
在Form1的代码模块中写如下代码：
Private Sub Command1_Click()
Dim str(256) As Byte
str(1)=1 '最大允许存放256个字符
'获取总行数，结果显示在文本框txtLineCount中
txtlineCount=SendMessage(Text1.hwnd,EM_GETLINECOUNT,0,0)
'获取第3行的数据放在str中，转换为字符串后显示在文本框txtString中
SendMessage Text1.hwnd,EM_GETLINE,2,str(0)
txtString= StrConv(str,vbUnicode)
End Sub
之后，按F5运行程序，在多行文本框中随便键入几行文字，然后按下[确定]按钮，出现如图画面，说明程序正确统计出了总行数和第3行的文字。
两点补充说明：在调用SendMessage获取第N行字符串时，lParam需要说明为字节数组，在调用完成后，再将字节数组转换为字符串；另外，调用前必须在lParam的前两个字节指明允许存放的最大长度，其中第一个字节为低位，第二个字节为高位，本例将高位（即str(1)）置1．说明最大允许存放256个字符。

例2 程序控制拉下或收起组合框的下拉列来
一般情况下，为了拉下或收起组合框的下拉列表，需要用键盘或鼠标进行操作，而有时我们希望程序运行的某个时刻自动拉出下拉列表（比如在一些演示程序中），为了实现这个目的，我们也只有借助于SendMessage函数，方法是发一个CB_SHOWDROPDOWN(&H14F)消息给组合框。
在发CB_SHOWDROPDOWN消息时，wParam参数决定了是拉下列表（=True时）还是收起列表（＝False时），lParam无用（设为0）。
为说明具体的使用方法，下面提供简单的程序片段。首先在代码模块中做如下声明：
Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long,ByVal wMsg As Long，ByVal wParam As Long,lParam As Any) As Long
Const CB_SHOWDROPDOWN=&H14F
当程序中某处需要拉下组合框Combol的列表时，写如下调用语句：
SendMessage Combol.hwnd,CB_SHOWDROPDOWN,True,0
当需要收起组合框Combol的列表时，写如下语句：
SendMessage Combol.hwnd,CB_SHOWDROPDOWNN,False,0

例3 在列表框中查找匹配的项目
在Win95风格的帮助系统中一般都有一个“索引”页，索引页含有一个文本框和一个列表框，当用户在文本框中输入文字时，下拉列表会动态地显示与文本框中文字最匹配的项目，为用户提供了最大的方便。这种效果在应用程序的帮助系统中很容易实现（只要按照Win95帮助系统的正常制作过程制作就可以实现），如果想在应用程序的其它地方实现这种特性就需费一番心思了。
而使用SendMessage函数实现上述特性则非常简单，甚至只需一条语句就足够了，那就是在文本框的Change事件中给列表框发一条LB_FINDSTRING(&H18F）消息，该消息告诉列表框在列表中查找匹配的项目。
在发LB_FINDSTRING消息时，wParam参数代表从列表框的哪一个项目后面开始查找，一般情况下该参数可定为-1，表示从List1(0)即第一项开始向后循环查找，lParam则传进欲搜索的字符串（必须采用值传递）。
具体的代码和运行画面与后面的例4合并在一起演示。

例4 为ListBox添加水平滚动条
在VB中，列表框控件仅提供垂直滚动条，没有设置水平滚动条的能力，当某些项目的文本宽度较长时，超出列表框宽度部分的文本就无法显示出来，因此，很有必要为ListBox添加一个水平滚动条来方便操作。
为添加水平滚动条，只需发一条LB_SETHORIZONTALEXTENT(&H194)消息给列表框即可。发送消息时，wParam为滚动条的长度（以像素为单位，可通过计算得出准确的长度，也可随便给一个大于最大文本宽度的数字，如本例的250），lParam无用。下面是例3和例4合并在一起的代码和运行画面
Declare Function SendMessage Lib "user32" Alias "SendMessageA"(ByVal hwnd As Long,ByVal wMsg As Long,ByVal wParam As Long,lParam As Any) As Long
Public Const LB_FINDSTRING=&H18F
Public Const LB_SETHORIZONTALEXTENT=&H194
Private Sub Form_Load()
List1.AddItem "软件"
List1.AddItem "电脑游戏"
List1.AddItem "电视机"
List1.AddItem "电视台"
List1.AddItem "电脑"
List1.AddItem "电脑游戏软件"
'下一句为列表框添加水平滚动条
SendMessage List1.hwnd,LB_SETHORIZONTALEXTENT,250,0
End Sub
Private Sub Text1_Change()
'注意！当lParam传入的是字符串时，必须用ByVal传递
List1.ListIndex ＝ SendMessage(List1.hwnd,LB_FINDSTRING,-1,ByVal Text1.Text)
End Sub
通过上面几个例子，想必您已经对SendMessage函数的强大功能有了初步的了解。事实上利用该函数我们还可以完成更多更好的任务，如控制文本框的自动滚屏、实现文字编辑过程中的Undo功能、操纵应用程序的窗体控制菜单等等，感兴趣的读者请参阅有关Windows API的资料。
本文程序均用Visual Basic 5.0企业版编写，在Pwin95环境下运行正常。

---------------------------------------------------------------------------
东南大学 梁云

Windows系统是由消息机制驱动的，每个线程如果建立了一个窗口，则由系统分配一个消息队列用于窗口消息的处理。另外，消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口，窗口过程将处理这个消息，但只有当消息被处理之后，SendMessage才能返回到调用程序。下面结合两个Delphi程序，讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。
用SendMessage向控件发送消息
在编程中，有时需要控件以特殊的风格显示，而这种要求又无法通过设置控件属性实现。例如，读取客户列表并显示在下拉框供用户选择，如果下拉框宽度太窄，则不能全部显示；如果将宽度定得太宽，界面又有不紧凑之感。因此希望能在运行期动态地确定下拉框显示区域的宽度，这种要求如果不用SendMessage函数就很难实现。
解决办法是，在读数据库时计算字符串的显示宽度，用显示宽度的最大值确定下拉框显示区域的宽度。再用SendMessage函数向下拉框发送CB_SETDROPPEDWIDTH消息和宽度值，下拉框根据消息中传来的信息，就可以进行正确显示。
　　部分源程序代码如下：
　　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[i]);
　　 if Width>MaxWidth then
　　 MaxWidth:=Width; //找出最大值
　　 Query1.Next;
　　 i:=i＋1;
　　end;
　　Query1.Close;
　　ComboBox1.Text:=ComboBox1.Items[0];
　　//发送消息以确定显示区域的宽度
　　SendMessage(ComboBox1.Handle,
CB_SETDROPPEDWIDTH,MaxWidth,0);
利用SendMessage函数还可以实现一些有趣的效果，例如在按钮的Click事件中加入如下语句：
SendMessage(Button.Handle,BM_SETSTYLE,
BS_RADIOBUTTON,1);
运行后点击按钮，就可以把按钮变成一个收音机按钮。
控件接收SendMessage消息
上面讨论了用SendMessage向控件发送消息的过程。但凡事有利就有弊，用SendMessage发送的消息在处理上存在着一定困难。因为该消息不经过消息队列，所以无法用OnMessage方式来指定对消息的响应，甚至用HookMainWindow也不行，因为消息直接发送到控件，绕过了主窗体。要对这种类型的消息作出响应，需要重载控件的WndProc方法。
例如，对于一个列表框，滚动条的滚动消息就是用SendMessage方式发送的，因此该消息不在TlistBox的事件列表中。下面是处理控件响应该滚动消息的具体步骤。
1.首先从TlistBox继承一个TmyListBox类，并重载WndProc方法。在程序中加入下列定义：
type
TMyListBox=class(TListBox)
private
procedure WndProc(var Msg: TMessage);
override;
//重载WndProc，处理发送到控件的消息
public
end;
其中WndProc方法指定控件对消息的响应，输入参数是TMessage类型，该数据类型是一个记录，包含了消息代码和消息的参数，消息参数可以用Longint或Word方式获得。
2.对滚动事件做出响应，在WndProc方法中加入如下处理代码：
　　if (Msg.Msg=WM_VSCROLL) and
(Msg.WParamLo=SB_ENDSCROLL) then
　　　begin
//获得鼠标位置对应的列
　　　　ItemIndex:=ItemAtPos(Point,true);
　　Form1.Edit1.Text:=inttostr(ItemIndex);
　　inherited;
　　　end
　　else
　　 inherited;
当程序接收到WM_VSCROLL消息，且WParamLo参数为SB_ENDSCROLL时，表示竖直滚动条停止滚动，就可以用ItemAtPos方法确定与鼠标位置对应的ItemIndex。ItemAtPos方法的Point参数是一个TPoint类型的变量，用来保存鼠标的位置。
3.定义方法ListBoxMouseMove，在鼠标移动时，将当前位置保存在Point中：
procedure TForm1.ListBoxMouseMove(Sender:
TObject; Shift: TShiftState; X,Y: Integer);
　　　begin
　　　　Point.X:=X;
　　　　Point.Y:=Y;
　　　end;
4.在运行期创建和初始化列表框，并指定列表框的MouseMove事件对应上一步定义的ListBoxMouseMove方法。在主窗体的Create事件中输入下面的代码：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;
//指定处理MouseMove事件的方法
List.OnMouseMove := ListBoxMouseMove;
end;

其他举例:
1,获得MEMO中的光标位置.
Lops:=SendMessage(memol.Handle,EM_LINEFROMCHAR,Memol.SelStart,0);//光标所在的行号
Cpos:=SendMessage(meno1.Handle,EM_LINEINDEX,Lpos,0);//光标所在的字符位置
LineLength:=SendMessage(memol.handle,EM_LINELENGTH,Cpos,0);//这行的字符数.
2,开关显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, 0);//关闭显示器.
SendMessage(Handle, WM_SYSCOMMAND, SC_MONITORPOWER, -1);//打开显示器.
3,有人问我如何让Memo翻页,我试了一下,
Next:
sendmessage(memo1.handle,wm_keydown,VK_NEXT,-1);
sendmessage(memo1.handle,wm_keyup,VK_NEXT,-1);
Prev:
sendmessage(memo1.handle,wm_keydown,VK_PRIOR,-1);
sendmessage(memo1.handle,wm_keyup,VK_PRIOR,-1);

---------------------------------------------------------------------------
参数：
hWnd
窗口过程接收消息的窗口句柄。如果此参数为HWND_BROADCAST，则消息被送到系统的所有顶层窗口，包括无效或不可见的非自身拥有的窗口、被覆盖的窗口和弹出式窗口。消息不被送到子窗口。
Msg
指定被发送的消息；
wParam
指定附加消息的特定信息；
lParam
指定附加消息的特定信息。

.返回值：
返回值返回消息处理的结果，其依赖于所发送的消息。

.常见问题
1）使用SendMessage来实现剪切、复制和粘贴

SendMessage(hwnd, WM_COPY, 0, 0);SendMessage(hwnd, WM_CUT, 0, 0);SendMessage(hwnd, WM_PASTE, 0, 0);
2）SendMessage与PostMessage的区别
PostMessage将消息放入消息队列后马上返回，而SendMessage直到窗口过程处理完消息后才返回
3）SendMessage发送WM_COPYDATA消息在进程间传送数据
WM_COPYDATA消息主要目的是允许在进程间传递少量只读数据。SDK文档推荐用户使用SendMessage()函数，接收方在数据复制完成前不返回，这样发送方就不可能删除和修改数据。
例如：

std:string
strData = "VC知识库 VCKBASE.COM";
COPYDATASTRUCT cds;
cds.dwData = 0;
cds.cbData = strData.Length();
cds.lpData = strData.c_str();
::SendMessage(hwnd, WM_COPYDATA, NULL, (LPARAM)&cds);