Форум: "Система";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Вниз

Окна   Найти похожие ветки 

← →
BuBuS   (2002-11-19 23:16) [0]

Имеется окно в нем Edit1 можно ли из другой программы добавить информацию в Edit1

---

← →
SCHMaster   (2002-11-20 02:52) [1]

Лови кусок кода ...
В качестве примера :)

procedure TForm1.Timer2Timer(Sender: TObject);
var
h : HWND;
n : integer;
s : string;
begin
h := WindowFromPoint(Mouse.CursorPos);
if h <> 0 then begin
n := SendMessage(h, WM_GETTEXTLENGTH, 0, 0) + 1;
S:="YES";
SetLength(s, n);
SendMessage(h, WM_SETTEXT, 0, Integer(s));
SendMessage(h, WM_CHAR, Ord(#13), 0);
end;

---

Страницы: 1 вся ветка

Форум: "Система";
Текущий архив: 2003.01.30;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.007 c