| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
почему не копируется текст второго edit-а?
mox © (2003-07-23 16:20:00)Добрый вечер ... или день, Мастера!
В окне два 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:00) [1]
Потому что второй эдит служит для ввода пароля
| |
