Скачать: CL | DM;

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

← →
Pauk   (2003-07-28 19:48) [0]

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

---

← →
AlexRush ©   (2003-07-28 19:53) [1]

SetWindowText(hWnd,"text");

---

← →
Pauk   (2003-07-28 20:06) [2]

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;
так что ли?

---

← →
default ©   (2003-07-28 20:32) [3]

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

---

← →
Pauk   (2003-07-28 20:35) [4]

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

---

← →
Pauk   (2003-07-28 20:37) [5]

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));

---

← →
default ©   (2003-07-28 20:38) [6]

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

---

← →
Pauk   (2003-07-28 20:41) [7]

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

---

← →
default ©   (2003-07-28 20:43) [8]


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


---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c