zoukankan      html  css  js  c++  java
  • delphi 响应鼠标进入控件消息

    procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息
    procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息

        procedure Button1Click(Sender: TObject);
        procedure tbStatusToolBarMouseMove(Sender: TObject; Shift: TShiftState; X,
          Y: Integer);
        procedure FormCreate(Sender: TObject);
        procedure TBXItem1Click(Sender: TObject);
        procedure Button2MouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
        procedure Panel1MouseUp(Sender: TObject; Button: TMouseButton;
          Shift: TShiftState; X, Y: Integer);
      private
        function GetEditText: string;
        procedure MSGEnter(var msg:TMessage);message CM_MOUSEENTER;//响应进入的消息
        procedure MSGLeave(var msg: TMessage);message CM_MOUSELEAVE;//响应离开的消息
        { Private declarations }
      public
        { Public declarations }
      end;
    
    
    procedure TForm2.MSGEnter(var msg: TMessage);
    var
      myobj : TObject;
    begin
    //  myobj := TObject(msg.LParam);//用LParam进行判断鼠标进入了哪个控件
    //  if (myobj <> nil) and (myobj is TPanel) then
    //    TPanel(myobj).Caption := 'enter';
    end;
    
    procedure TForm2.MSGLeave(var msg: TMessage);
    var
      myobj : TObject;
    begin
        myobj := TObject(msg.LParam);
    //  if (myobj <> nil) and (myobj is TPanel) then
    //  begin
    //    TPanel(myobj).Visible := False;
    //    Button2.Tag := 0;
    //  end;
        //TPanel(myobj).Caption := 'leave';
    end;
    

      

  • 相关阅读:
    http协议
    web自动化测试
    测试用例的编写
    软件测试基础知识
    内置对象session
    eclipse中快捷键使用技巧
    多线程
    jsp中的九大内置对象
    制作网站用到的一点知识
    正则表达式 7 ----大括号
  • 原文地址:https://www.cnblogs.com/zhangzhifeng/p/9982703.html
Copyright © 2011-2022 走看看