Форум: "Начинающим";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];
ВнизКак получить значение поля Edit в обозревателе Internet Explorer Найти похожие ветки
← →
DDR2 (2008-01-31 17:40) [0]Привет!
Подскажите пожалуйста, как можно, зная имя класса окна, получить значение поля Edit в обозревателе Internet Explorer?
← →
Dennis I. Komarov © (2008-01-31 18:01) [1]> [0] DDR2 (31.01.08 17:40)
Где же ты умудрился его там отыскать?
← →
Palladin © (2008-01-31 18:02) [2]это видимо
<input type="text" name="TEdit">
:)
← →
Kolan © (2008-01-31 18:05) [3]> это видимо
А я думаю, что это адресная строка…
← →
Palladin © (2008-01-31 18:06) [4]та нет, адресная строка это таки более похоже на TComoboBox...
← →
Dennis I. Komarov © (2008-01-31 18:07) [5]> [3] Kolan © (31.01.08 18:05)
Нее, это по-любому TComboBox :)
← →
Kolan © (2008-01-31 18:10) [6]> это по-любому TComboBox
Точно, блин :)
← →
DDR2 (2008-01-31 19:10) [7]А как к нему можно обратиться? К этому TComboBox?
← →
Kolan © (2008-01-31 19:21) [8]> А как к нему можно обратиться? К этому TComboBox?
Ага, я угадал! А вы комбо бокс комбо бокс :)
ЗЫ
Автор — это не комбобокс.
← →
DDR2 (2008-01-31 19:28) [9]коль, не не надо так. хоть объясни что да как. если че не понимаю...
← →
Игорь Шевченко © (2008-01-31 20:13) [10]Kolan © (31.01.08 19:21) [8]
"Запрещается:
9. Создание пустых сообщений, спама, преднамеренной рекламы, а так же неинформативных сообщений, типа «Здорово», «Я так и знал» или «Full Respect». "
http://www.delphimaster.ru/forums.shtml#rule
← →
Compiler © (2008-02-01 00:08) [11]Урлу надо?
function GetText(WindowHandle: hwnd):string;
var
txtLength : integer;
buffer: string;
begin
TxtLength := SendMessage(WindowHandle, WM_GETTEXTLENGTH, 0, 0);
txtlength := txtlength + 1;
setlength (buffer, txtlength);
sendmessage (WindowHandle,wm_gettext, txtlength, longint(@buffer[1]));
result := buffer;
end;
function GetURL:string;
var
ie,toolbar,combo,
comboboxex,edit,
worker,toolbarwindow:hwnd;
begin
ie := FindWindow(pchar("IEFrame"),nil);
worker := FindWindowEx(ie,0,"WorkerW",nil);
toolbar := FindWindowEx(worker,0,"rebarwindow32",nil);
comboboxex := FindWindowEx(toolbar, 0, "comboboxex32", nil);
combo := FindWindowEx(comboboxex,0,"ComboBox",nil);
edit := FindWindowEx(combo,0,"Edit",nil);
toolbarwindow := FindWindowEx(comboboxex, 0, "toolbarwindow32", nil);
result := GetText(edit);
end;
← →
homm © (2008-02-01 07:40) [12]> [7] DDR2 (31.01.08 19:10)
> А как к нему можно обратиться?
К кому к нему?
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.02.24;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.071 c