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

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

一位译者提出了一个很好的建议,即他应该能够点击一个组件来改变它的文本.我可以实现这个,如果我能找到一种方法来挂钩程序范围,一个事件,这样当用户在按住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.它现在正在运作.很酷！太棒了！

谢谢你的帮助！