| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
браузер [D7, XP]
Mikishanya © (2012-09-22 16:39:00)Привет всем!
Подскажите, кто может. Как сделать так чтоб на вебстраничках в дельфи браузере (например в яндексе, кнопку "найти") можно былоб нажать enter'ом.
И еще. Как сделать сохранялку паролей, как в опере или мозиле?
Спасибо!
Mikishanya (2012-10-04 14:13:00) [1]
> посмотри EnumChildWindow, получи все окна программы и проверь,
> нет ли нужного текста на уровень выше-ниже/левее-правее
> :).
пасиб, попробую
AV (2012-10-04 14:00:00) [2]есть 2 мысли
1.
если, конечно, это правда
> Зато получается в них самих текст менять по HWND.
что они выводят текст как-то иначе, и его не возьмешь по GetWindowText
2.
посмотри EnumChildWindow, получи все окна программы и проверь, нет ли нужного текста на уровень выше-ниже/левее-правее :).
ps
и не хами :)
Mikishanya (2012-10-04 13:19:00) [3]Что за люди... Ну ответьте по существу или примите меры (если модер) и баньте.
А коли сказать по вопросу нечего, так заткните рты.
Я по моему не просил "Народ, пофлудите тут, а?" или "Расскажите мне пожалуйста тут правила форума"....
Mikishanya (2012-10-04 13:10:00) [4]А вообще все это связано между собой. Мне нужно чтоб из проги где эти TcxCustomInnerTextEdit заполнялись поля в webbrowser. Но это я в принципе подозреваю как сделать, если смогу выцепить текст с этих самых TcxCustomInnerTextEdit...
Mikishanya (2012-10-04 13:05:00) [5]Закрывайте, если угодно. Не обижусь. Форум темами засорять не хочется.
sniknik (2012-10-04 13:02:00) [6]> но коли создал, новую создавать не буду.
темы не персонализация по юзеру дельфимастера, а персонализация по вопросу...
т.ч. за оффтопик тебя нужно бы закрыть...
Mikishanya (2012-10-04 12:20:00) [7]Народ. Вопрос не по теме, но коли создал, новую создавать не буду.
Есть прога(не моя). Есть на ней компоненты TcxCustomInnerTextEdit.
HWND их знаю. Имени у них не кажет, только класс.
Мне нужно из них выцепить текст к себе. пробовал GetWindowText по HWND сделать, не получается.
Зато получается в них самих текст менять по HWND.
Можно выцепить текст зная HWND?
Mikishanya (2012-09-29 07:26:00) [8]Всем огромное спасибо за помощь! Приложение работает. Заморачиваться с enter'ом не стал, пользуюсь пробелом:))) Теперь затраты времени и сил сократились в трое:)
QAZ2 (2012-09-27 10:51:00) [9]
> Пасибо!
на самом деле это говнокод из гугла и он улучшаем
Anatoly Podgoretsky (2012-09-27 08:56:00) [10]> Mikishanya (27.09.2012 07:37:17) [17]
Думаю что в опере не так, это же смерть
Mikishanya (2012-09-27 07:37:00) [11]
> А где тут крутая Опера?
Мне не нужна была крутая опера. Мне нужно было, чтоб как в опере на элементах упр. вебстраниц посылалась клавиша "ввод".
Mikishanya (2012-09-27 07:33:00) [12]
> двоечник...
Пасибо! Я не двоечник, я с дельфи знакомиться только начал:) Вообще кодить не учили нигде.. другое образование.
QAZ2 (2012-09-26 21:30:00) [13]ты про чо?
Anatoly Podgoretsky (2012-09-26 18:32:00) [14]А где тут крутая Опера?
QAZ2 (2012-09-26 17:08:00) [15]двоечник...
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls,ActiveX;
type
TForm1 = class(TForm)
WebBrowser1: TWebBrowser;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
FOleInPlaceActiveObject: IOleInPlaceActiveObject;
procedure MsgHandler(var Msg: TMsg; var Handled: Boolean);
public
{ Public declarations }
end;
var Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormDestroy(Sender: TObject);
begin
FOleInPlaceActiveObject := nil;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
Application.OnMessage := MsgHandler;
WebBrowser1.Navigate('www.yandex.ru');
end;
procedure TForm1.MsgHandler(var Msg: TMsg; var Handled: Boolean);
var
iOIPAO: IOleInPlaceActiveObject;
Dispatch: IDispatch;
begin
if not Assigned(WebBrowser1) then begin
Handled := False;
Exit;
end;
Handled := IsDialogMessage(WebBrowser1.Handle, Msg) = True;
if (Handled) and (not WebBrowser1.Busy) then begin
if FOleInPlaceActiveObject = nil then begin
Dispatch := WebBrowser1.Application;
if Dispatch <> nil then begin
Dispatch.QueryInterface(IOleInPlaceActiveObject, iOIPAO);
if iOIPAO <> nil then FOleInPlaceActiveObject := iOIPAO;
end;
end;
if FOleInPlaceActiveObject <> nil then
if ((Msg.message = WM_KEYDOWN) or (Msg.message = WM_KEYUP)) and (not (Msg.wParam in [VK_BACK,VK_LEFT,VK_RIGHT])) then
FOleInPlaceActiveObject.TranslateAccelerator(Msg);
end;
end;
end.
Mikishanya (2012-09-26 08:19:00) [16]
> я больше чем уверен, что как пользователь оперы, ты готов
> с пеной у рта любому доказывать что ИЕ полный отстойно при
> этом для своей программы аля "смотрите какой я крутой прогер-
> написал свой браузер" используеш именно егоправда забавно.
> ..
Я работу хочу себе упростить, а не выпендриваться перед кем-то! А про IE сказать ничего не могу, потому что просто не пользовалься.
Еще раз повторю, я прошу помощи и совета, а не разные мнения непонятно кого обо мне!
Mikishanya (2012-09-26 08:01:00) [17]
> я больше чем уверен, что как пользователь оперы, ты готов
> с пеной у рта любому доказывать что ИЕ полный отстойно при
> этом для своей программы аля "смотрите какой я крутой прогер-
> написал свой браузер" используеш именно егоправда забавно.
> ..
Не угадал...
QAZ2 (2012-09-25 15:17:00) [18]я больше чем уверен, что как пользователь оперы, ты готов с пеной у рта любому доказывать что ИЕ полный отстой
но при этом для своей программы аля "смотрите какой я крутой прогер-написал свой браузер" используеш именно его
правда забавно...
Mikishanya (2012-09-25 14:21:00) [19]
> Где язвление?
Не хочу ругаться. Каждый понял по своему значит...
Inovet (2012-09-25 13:25:00) [20]> [7] Mikishanya © (25.09.12 13:14)
> Реальную помощь можно оказать, а не язвить?
Где язвление?
| |
Страницы: 