![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Ввод строки в окно
Yura © (2001-11-05 20:11:00)Есть окно с известным заголовком, есть строка.
Как ее в окно правильно послать?
Shmel (2001-11-07 22:02:00) [1]Нужно DC окна найти. Ф-ю не помню :) и туда OutText Выводить.
Ищи "рисовать в чужом окне" в инете полно по этому поводу примеров
Yura (2001-11-07 19:12:00) [2]Ну и?
Kyd (2001-11-06 12:38:00) [3]Делаю так:
procedure TForm1.Button2Click(Sender: TObject);
var
TextToSet: PChar;
begin
TextToSet:="pupkin";
MyHandle:=FindWindow(nil, "Telnet - 10.100.1.100");
BringWindowToTop(MyHandle);
SendMessage(MyHandle, WM_SETTEXT, 0, Integer(TextToSet));
SendMessage(MyHandle, WM_CHAR, Ord(#13), 0);
end;
текст вводится в заголовок окна.
Как в само окно-то ввести его?
Alien (2001-11-05 20:55:00) [4]SetWindowText или SendMessage с параметром WM_SETTEXT.