Получить заголовок элемента управления под мышкой

Previous  Top  Next

    
 

 

Code:

function GetCaptionAtPoint(CrPos: TPoint): string;

var

  textlength: Integer;

  Text: PChar;

  Handle: HWND;

begin

  Result := 'Empty';

  Handle := WindowFromPoint(CrPos);

  if Handle = 0 then Exit;

  textlength := SendMessage(Handle, WM_GETTEXTLENGTH, 0, 0);

  if textlength <> 0 then

  begin

    getmem(Text, textlength + 1);

    SendMessage(Handle, WM_GETTEXT, textlength + 1, Integer(Text));

    Result := Text;

    freemem(Text);

  end;

end;

 

©Drkb::01601

Взято с сайта: http://www.swissdelphicenter.ch