procedure TForm1.Timer1Timer(Sender: TObject);<br><br>var<br><br> Pos: TPoint;<br><br> Handle: HWND;<br><br> ScreenDC: HDC;<br><br> Buf: array[0..1024] of Char;<br><br> ScreenColor: COLORREF;<br><br>begin<br><br> GetCursorPos(Pos); // 得到当前光标位置<br><br> Handle := WindowFromPoint(Pos); // 返回当前位置的句柄<br><br> HandleText.Caption := IntToStr(Handle); //显示句柄<br><br> GetClassName(Handle, Buf, 1024); // 得到类名<br><br> ClassNameText.Caption := Buf; //显示当前所指控件类名<br><br> SendMessage(Handle, WM_GETTEXT, 33, Integer(@Buf)); // 得到标题<br><br> TitleText.Caption := Buf; //显示当前控件的内容<br><br> //如edit1为密码框时可显示的出里面的内容。