Delphi

Вопрос

Как, имея HANDLE некой формы, добраться через него до какого-либо CONTROLа , принадлежащего этой форме? Пример: как, имея 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