unit1.pas

来自「该功能实现了利用鼠标的移动能够获得鼠标位置的控件的名称和类名」· PAS 代码 · 共 63 行

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Timer1: TTimer;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
var
 MousePoint: TPoint;
 ControlName: string;
 ControlHandle: integer;
 Pch: Pansichar;
 Twin: TWinControl;
begin
try
 new(Pch);
GetCursorPos(MousePoint);
{
Twin := findvclwindow( mousepoint);
edit1.Text :=twin.Name ;  }

//getcontrolname

ControlHandle := WindowFromPoint(MousePoint);
GetClassName(conTrolHandle,pch,255); // 得到类名
edit1.Text := pch;
getwindowtext(controlHandle,pch,255);//得到标题名

edit1.Text :=edit1.Text + ' ' + pch;
dispose(pch);
 {  先getcursorpos
  再WindowFromPoint
  则可得到控件句柄了
  最后getclassname即可。
   FindVCLWindow(}
   except

end;
end;

end.