 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
 |
|
||||||||||
|
||||||||||
|
||||||||||
|
|
Добраться через 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
|
|
 |