Получить заголовок элемента управления под мышкой |
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