Добраться через Handle формы до какого-либо CONTROLа

Delphi , Программа и Интерфейс , Приложения чужие

Оформил: DeeCo

function ChangeWndFirstEditText(Wnd: HWND; const Text: string):
  boolean;
var
  EditWnd: HWND;
begin
  Result := False;
  EditWnd := FindWindowEx(Wnd, 0,
    'EDIT', nil);
  if EditWnd = 0 then
    exit; // edit not found
  Result := SendMessage(EditWnd, WM_SETTEXT, 0, Integer(PChar(Text))) <> 0;
end;
// Из конференции Expert_FAQ

Статья Добраться через Handle формы до какого-либо CONTROLа раздела Программа и Интерфейс Приложения чужие может быть полезна для разработчиков на Delphi и FreePascal.

Комментарии и вопросы

:: Главная :: Приложения чужие ::