передача значения в чужой 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));

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

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

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

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

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