delphi – 在任何VCL组件上单击鼠标,并确定其.Tag值

前端之家收集整理的这篇文章主要介绍了delphi – 在任何VCL组件上单击鼠标,并确定其.Tag值前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。
我正在使用本土翻译工具. (下次我将使用其中一个库,如下所述: delphi translation tool.)

我的译者抱怨翻译一长串字符串很困难,因为他们没有在上下文中看到它们(在它们出现的屏幕上).

一位译者提出了一个很好的建议,即他应该能够点击一个组件来改变它的文本.我可以实现这个,如果我能找到一种方法来挂钩程序范围,一个事件,这样当用户在按住CTRL键的同时点击一个组件时,就会调用一个事件处理程序.事件处理程序将确定组件是否具有.Caption属性,如果是,则获取Tag组件的值(然后允许一些用户输入.)

(每个可翻译组件在其Tag中都有唯一的整数,我用它来查找组件的.Caption.)

关于如何解决这个问题的任何建议?这是我的头脑.我需要类似于表单的KeyPreview,但是对于鼠标点击可以找出点击的VCL组件,并确定它的.Tag值.

汤姆

编辑:

使用David H.的建议,我得到的唯一事件是当应用程序获得焦点或失去它时.我做错了什么?

function TForm1.AppHookFunc(var Message : TMessage) : Boolean;
    begin
      Result := FALSE;
      inc(i); outputdebugstring(Pchar(inttostr(i) + ': ' + IntTostr(Message.msg)));
      if Message.Msg = WM_MBUTTONDOWN then
        begin      Beep;
        //...DoSomething...
        //Result := True;
        end;
    end;

    procedure TForm1.FormCreate(  Sender: TObject);
    begin
      Application.HookMainWindow(AppHookFunc);
    end;

    procedure TForm1.FormDestroy(
      Sender: TObject);
    begin
      Application.UnHookMainWindow(AppHookFunc);
    end;

编辑2

我快到了!但FindDragTarget很少返回任何东西,只有零.如果我用一个巨大的按钮覆盖大部分控件,我有时可以让它工作.收到的tagMSG中的X,Y坐标是相对于对照的.虽然他们相对于表格我会的.我还在使用不同的事件钩子吗?有什么建议:

procedure TForm1.ApplicationEvents1Message( var Msg: tagMSG;
                                              var Handled: Boolean);
  var
    Target: TControl;
    Point: TPoint;
  begin
    Handled := FALSE;
    if (Msg.Message = WM_LBUTTONDOWN) And isAltDown then
      begin
        Point.X := LongRec(Msg.lParam).Lo;
        Point.Y := LongRec(Msg.lParam).Hi;
        Target := FindDragTarget( Point,{AllowDisabled=}TRUE);
        if Assigned(Target) then
          begin
            if Target Is TButton then
              outputdebugString(Pchar(TButton(Target).Caption));
          end
        else
          outputdebugstring(Pchar(IntToStr(Point.X) + ',' + IntToStr(Point.Y)));
      end;
  end;

最终编辑:

我将上面的代码更改为使用GetCursorPos而不是Msg.lParam.它现在正在运作.很酷!太棒了!

谢谢你的帮助!

解决方法

我假设这是一个VCL应用程序.对于FireMonkey,这不起作用.

>添加Application.OnMessage事件处理程序.
>在事件处理程序中查找WM_LBUTTONDOWN或WM_LBUTTONUP,并检查修改键状态是否符合您的要求,例如CTRL已关闭.
>调用FindDragTarget传递与鼠标事件关联的位置.这将为您提供鼠标下的控制,如果确实有一个(即检查为零).>做任何你想要的控制.

原文链接:https://www.f2er.com/delphi/102190.html

猜你在找的Delphi相关文章