获取点击的控件名称

2022-03-06 09:31:06 阅读：154 来源： 互联网

标签：控件 begin end TForm1 MyRect var 获取点击 Msg

1.对于有句柄的控件，可以用一下代码
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ComCtrls;

type
  TForm1 = class(TForm)
    btn1: TButton;
    btn2: TButton;
    PageControl1: TPageControl;
    ts1: TTabSheet;
    ts2: TTabSheet;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AppMsg(var Msg: TMsg; var Handled: Boolean);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }
procedure TForm1.AppMsg(var Msg: TMsg; var Handled: Boolean);
var
  i:integer;
begin
  case Msg.message of
    WM_LBUTTONDOWN,
    WM_LBUTTONDBLCLK:
      begin
        //拦截PageControl控件的Tab标签切换事件
        if Msg.hwnd=PageControl1.Handle then
        begin
          for i:=0 to PageControl1.PageCount-1 do
          begin
            if PtInRect(PageControl1.TabRect(i),PageControl1.ScreenToClient(Msg.pt)) then
            begin
              Handled:=true;
              ShowMessage(IntToStr(i));
            end;
          end;
        end;

        //拦截Button按钮点击事件
        if Msg.hwnd=btn1.Handle then
        begin
          Handled:=true;
          ShowMessage('bbbb');
        end;
      end;
  end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.OnMessage:=AppMsg;
end;

procedure TForm1.btn1Click(Sender: TObject);
begin
  ShowMessage('aaaa');
end;

end.
2.对于没有句柄的控件，可以通过矩形区域判断
var
  Pt: TPoint;
  MyRect: TRect;
begin
  if (Msg.message = WM_LBUTTONUP) or (Msg.message = WM_RBUTTONUP) then
  begin
    GetCursorPos(Pt);
    MyRect.TopLeft.X := OwnButton5.ClientOrigin.x;
    MyRect.TopLeft.y := OwnButton5.ClientOrigin.y;
    MyRect.BottomRight.X := MyRect.TopLeft.X +OwnButton5.Width;
    MyRect.BottomRight.y := MyRect.TopLeft.y +OwnButton5.Height;
    if not PtInRect(MyRect,Pt) then Panel14.Visible := False;
  end;
end;
需要注意的是：窗口销毁时，如果应用程序需要继续运行，则要在窗口销毁时解除消息截获，即Application.OnMessage:=nil;

标签：控件,begin,end,TForm1,MyRect,var,获取,点击,Msg
来源： https://www.cnblogs.com/QuincyYi/p/15970357.html

本站声明： 1. iCode9 技术分享网（下文简称本站）提供的所有内容，仅供技术学习、探讨和分享；
2. 关于本站的所有留言、评论、转载及引用，纯属内容发起人的个人观点，与本站观点和立场无关；
3. 关于本站的所有言论和文字，纯属内容发起人的个人观点，与本站观点和立场无关；
4. 本站文章均是网友提供，不完全保证技术分享内容的完整性、准确性、时效性、风险性和版权归属；如您发现该文章侵犯了您的权益，可联系我们第一时间进行删除；
5. 本站为非盈利性的个人网站，所有内容不会用来进行牟利，也不会利用任何形式的广告来间接获益，纯粹是为了广大技术爱好者提供技术内容和技术思想的分享性交流网站。

ICode9

获取点击的控件名称