Получить заголовок элемента управления под мышкойDelphi , ОС и Железо , Мышка и КурсорПолучить заголовок элемента управления под мышкой
Оформил: DeeCo 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; Статья Получить заголовок элемента управления под мышкой раздела ОС и Железо Мышка и Курсор может быть полезна для разработчиков на Delphi и FreePascal. Комментарии и вопросыМатериалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта. :: Главная :: Мышка и Курсор ::
|
||||
©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007 |