• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    迪恩网络公众号

delphi自定义窗口消息

原作者: [db:作者] 来自: [db:来源] 收藏 邀请
假设你的消息这样定义:  
  Const    
      WM_YOURMSG=WM_USER+100;  
  你的过程定义可以这样:  
        procedure   YourProc(var   MSG:TMessage);message   WM_YOURMSG;  
  这样,当你的窗口收到该消息时,将调用这个过程。  
  例如:  
   
  unit   Unit1;  
   
  interface  
   
  uses  
      Windows,   Messages,   SysUtils,   Classes,   Graphics,   Controls,   Forms,   Dialogs,  
      StdCtrls;  
  Const  
    WM_MINE=WM_USER+100;  
  type  
      TForm1   =   class(TForm)  
          Button1:   TButton;  
          procedure   Button1Click(Sender:   TObject);  
      private  
          {   Private   declarations   }  
          procedure   Mine(var   msg:TMessage);message   WM_MINE;  
      public  
          {   Public   declarations   }  
      end;  
   
  var  
      Form1:   TForm1;  
   
  implementation  
   
  {$R   *.DFM}  
   
  procedure   TForm1.Mine(var   msg:   TMessage);  
  begin  
      Showmessage('OK');  
  end;  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  begin  
  Sendmessage(handle,WM_MINE,0,0);  
  end;  
   
  end.  
  这个单元定义了一个消息,当按下按钮时,向自己窗口发送这个消息(当然,不一定发送到自己的窗口,处理消息的过程也可以在其他地方),然后弹出个对话框。这当然是多此一举,不过,只是为了说明使用方法。  
   
  至于想处理MOUSECLICK时的MOUSE位置和状态,你可以不处理ONCLICK事件,而在ONMOUSEDOWN事件里处理。这个事件提供的参数分别告诉了你  
  Sender:那一个按钮接收这个鼠标事件:  
  Shift:当前鼠标的按钮状态是什么样,其他键盘状态是什么样,我们一般用  
  if   Shift=[ssleft]来判断是否鼠标左键点击,有关方括号里的值,你可以查询DELPHI的在线帮助,关键字:TShiftState  
  Button:表明那一个鼠标键被按下,  
  X,Y:鼠标在接收这个鼠标事件时的位置,如果你需要的是屏幕的位置可以这样做:  
   
  procedure   TForm1.Button1MouseDown(Sender:   TObject;   Button:   TMouseButton;  
      Shift:   TShiftState;   X,   Y:   Integer);  
  var  
      CurrentPos:TPoint;  
  begin  
      if   shift=[ssRight]   then   begin  
      CurrentPos:=TButton(Sender).clientToScreen(point(x,y));  
      {或者,GetcursorPos(CurrentPos)}  
      Showmessage(format('X:%d,Y:%d',[CurrentPos.x,CurrentPos.y]));  
  end;  
  //这个过程将使你鼠标在按钮上点下时弹出对话框,标明当前的位置。  
  end;  
  ;  
  这样CurrentPos的X,Y就是当前屏幕的坐标。

鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap