| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

передача значения в чужой Edit

Pauk ©   (2003-07-28 19:48:00) 

как передать в Edit чужого окна какой нибудь text? handle есть. Буду благодарен до повизгивания

---

default   (2003-07-28 20:43:00) [1]


SetWindowText(FindWindowEx(FindWindow("TForm1", nil), 0, "TEdit", nil), "NewText")


---

Pauk   (2003-07-28 20:41:00) [2]

дык и хендл и назв класса и назв edita я знаю - сам сработал

---

default   (2003-07-28 20:38:00) [3]

а вообще у текстого поля класс "Edit"
это в Delphi "TEdit"

---

Pauk   (2003-07-28 20:37:00) [4]

H1:=FindWindow("TForm1", PChar("Form1"));
H2:=FindWindowEx(H1, 0, PChar("TEDit"), nil);
SetWindowText(H2,pChar("New Text"));
GetWindowText(H2,Buff,SizeOf(Buff));
( StrPas(Buff)

H1:=FindWindow("TForm1", PChar("Form1"));
H2:=FindWindowEx(H1, 0, PChar("TEDit"), nil);
SetWindowText(H2,pChar("New Text"));
GetWindowText(H2,Buff,SizeOf(Buff));
ShowMessage(StrPas(Buff));

---

Pauk   (2003-07-28 20:35:00) [5]

верно, то верно, только текс не меняется
в form1.caption - легко, а в TEdit - хрен, хотя по функции GetWindowText - показывает, что текст изменился

---

default   (2003-07-28 20:32:00) [6]

а попробовать не дано?
зачем тут цикл и откуда взялось число 32?
а так верно

---

Pauk   (2003-07-28 20:06:00) [7]

var
H1, H2: THandle;
begin
for I := 0 to 10000 do
begin
H1:=FindWindow("TForm1", "Form1");
if H1>32 then H2:=FindWindowEx(H1, 0, "TEdit", "");
( H2, "text")

var
H1, H2: THandle;
begin
for I := 0 to 10000 do
begin
H1:=FindWindow("TForm1", "Form1");
if H1>32 then H2:=FindWindowEx(H1, 0, "TEdit", "");
if H2>32 then SetWindowText(H2, "text");
end;
end;
так что ли?

---

AlexRush   (2003-07-28 19:53:00) [8]

SetWindowText(hWnd,"text");

---

Наверх