2012/03/07

Delphi中SendMessage使用技巧


Delphi中SendMessage使用技巧


东南大学 梁云
 应用与开发
Windows系统是由消息机制驱动的,每个线程如果建立了一个窗口,则由系统分配一个消息队列用于窗口消息的处理。另外,消息也可以不经过消息队列而利用SendMessage函数直接发送给窗口,窗口过程将处理这个消息,但只有当消息被处理之后,SendMessage才能返回到调用程序。下面结合两个Delphi程序,讨论如何利用SendMessage向控件发送消息和控件对这种消息的响应。
SendMessage向控件发送消息
在编程中,有时需要控件以特殊的风格显示,而这种要求又无法通过设置控件属性实现。例如,读取客户列表并显示在下拉框供用户选择,如果下拉框宽度太窄,则不能全部显示;如果将宽度定得太宽,界面又有不紧凑之感。因此希望能在运行期动态地确定下拉框显示区域的宽度,这种要求如果不用SendMessage函数就很难实现。
解决办法是,在读数据库时计算字符串的显示宽度,用显示宽度的最大值确定下拉框显示区域的宽度。再用SendMessage函数向下拉框发送CB_SETDROPPEDWIDTH消息和宽度值,下拉框根据消息中传来的信息,就可以进行正确显示。
程序运行结果如图1所示:
 
部分源程序代码如下:

  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);    
  end;
  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;
(计算机世界报 26 C13

沒有留言:

張貼留言

How to use URLEncode in Delphi

URL編碼,也稱【百分號編碼(Percent-encoding)】 由於 URL 不能直接接受 UTF8 文字,所以要先轉成百分號編碼後,如此網址才能順利送給 HTTP Server 從 Indy 加入 Delphi 後,就可以用 IdURI.TIdURI 單元進行編碼 ...