Obter o Handle sobre o cursor do Mouse

Para obter o Handle sobre o cursor do Mouse utilizando Delphi, iremos utilizar um Timer, três Edits e as seguintes funções:

GetCursorPos - Obtém a posição do Mouse;
WindowFromPoint - Retorna o Handle de acordo com a posição informada;
GetWindowText - Obtém o Texto referente ao Handle;
GetClassName - Obtém a Classe referente ao Handle;

O evento OnTimer do Timer ficará assim:

procedure TfrmMain.tHandleTimer(Sender: TObject);
var
  Handle : Longint;
  Posicao : TPoint;
  Texto, Classe: array [0..255] of char;
begin
  GetCursorPos(Posicao);
  Handle := WindowFromPoint(Posicao);
  GetWindowText(Handle, Texto, SizeOf(Texto));
  GetClassName(Handle, Classe, SizeOf(Classe));
  edtHandle.Text := IntToStr(Handle); //TEdit
  edtTexto.Text := Texto; //TEdit
  edtClasse.Text := Classe; //TEdit
end;

Simples não?

Google Docs

Como criar um Teclado Virtual utilizando Delphi

Basicamente, o que você observa em um teclado virtual quando o utiliza?
- sempre fica sobre as janelas e programas abertos.
- não recebe o foco ao clicar nas teclas.
- envia teclas para o objeto ativo.

Sabendo disso, para criar um teclado virtual em Delphi, vamos precisar fazer o seguinte: