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

{codecitation class=»brush: pascal; gutter: false;» width=»600px»}

Оформил: DeeCo

Пример: как, имея HANDLE окна, добавить запись в EditBox, находящемуся в этом окне?

Ответ

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

{/codecitation}

Добавить комментарий