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

почему не копируется текст второго edit-а?   Найти похожие ветки 

← →
mox ©   (2003-07-23 16:20) [0]

Добрый вечер ... или день, Мастера!
В окне два edit-а, почему не копируется текст второго edit-а?
Вернее, он копируется, но "пустой"... :

procedure TForm1.FormCreate(Sender: TObject);
const
Wname = "WindowName";
var
Wnd: HWND;
l: integer;
s: string;
Control: array [0..127] of char;
procedure NextEdit;
begin
repeat
Wnd := GetWindow(Wnd, GW_HWNDNEXT);
( Wnd, Control, SizeOf(Control) Добрый вечер ... или день, Мастера!
В окне два edit-а, почему не копируется текст второго edit-а?
Вернее, он копируется, но "пустой"... :

procedure TForm1.FormCreate(Sender: TObject);
const
Wname = "WindowName";
var
Wnd: HWND;
l: integer;
s: string;
Control: array [0..127] of char;
procedure NextEdit;
begin
repeat
Wnd := GetWindow(Wnd, GW_HWNDNEXT);
GetClassName(Wnd, Control, SizeOf(Control))
until Control = "Edit";
l:=sendmessage(wnd,wm_gettextlength,0,0);
setLength(s,l);
sendmessage(wnd,wm_gettext,l+1,LParam(@s[1]));
showmessage(s);
end;
BEGIN
Wnd := FindWindow(nil, Wname);
Wnd := GetWindow(Wnd, GW_CHILD);
NextEdit; // текст 1-го edit
NextEdit; // текст 2-го edit
halt;
end;

---

← →
Reindeer Moss Eater   (2003-07-23 16:43) [1]

Потому что второй эдит служит для ввода пароля

---

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

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



Память: 0.45 MB
Время: 0.014 c