Модераторы: MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> TWebBrowser, Неработают функции 
V
    Опции темы
xoslv
  Дата 12.1.2007, 21:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Умные люди! Помогите пожалуйста!
Передомной стоит задача следующего характера:
необходимо сделать броузер, который привязан к конкретному адресу - банально, но сделал и даже работает! Хотя в Delphi  я полный ноль!
Но проблема в другом, у меня в бровзоре при заполнении какой-либо формы, кнопка с типом SUBMIT не срабатывает, плюс ко всему, не работает комбинация клавиш Ctrl+C тобеж копировать!
Немогли бы подсказать, как решить данную проблему? Перепробовал множество примеров приведённых в интернете, и бестолку....
Помогите пожалуйста, буду весьма признателен!
Могу выложить мой код который уже есть!
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
December
Дата 12.1.2007, 22:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Antitheorist
****


Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 12
Всего: 57
drkb...


--------------------
Для друзей с винграда - скидки на разработку сайтов
PM MAIL WWW ICQ   Вверх
xoslv
Дата 12.1.2007, 23:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Цитата(December @ 12.1.2007,  22:53)
drkb...

Что ты хотел етим сказать?
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
W4FhLF
Дата 12.1.2007, 23:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: нет
Всего: 121
http://drkb.ru/


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
xoslv
Дата 13.1.2007, 14:40 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 12.1.2007

Репутация: нет
Всего: нет
Спасибо за ссылку! Очень полезный материал!
но есть ещо одна беда!
пишу следуещее:
Код

procedure TForm1.MyMessageHandler(var Msg: TMsg; var Handled: Boolean);
var
  iOIPAO: IOleInPlaceActiveObject;
  Dispatch: IDispatch;
begin
   { exit if we don't get back a webbrowser object }
   if WebBrowser1 = nil 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
   ((Msg.wParam = VK_BACK) or (Msg.wParam = VK_LEFT) or (Msg.wParam = VK_RIGHT)) then
   //nothing - do not pass on Backspace, Left or Right arrows
  else
    FOleInPlaceActiveObject.TranslateAccelerator(Msg);
  end;
end;

Пытаюсь запустить......
А программе ненравится < >
Я так понимаю что ненравится пробел..  Когда я его убераю прога запускается, но функция не работает, а с пробелами прога не запускается... Что делать?
--------------------
Не всё то маздай, что синее!
PM MAIL ICQ   Вверх
W4FhLF
Дата 13.1.2007, 15:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


found myself
****


Профиль
Группа: Участник Клуба
Сообщений: 2831
Регистрация: 2.12.2006

Репутация: нет
Всего: 121
Ну значит не выполняется это условие, что тут думать?smile

Это сообщение отредактировал(а) W4FhLF - 13.1.2007, 15:13


--------------------
"Бог умер" © Ницше
"Ницше умер" © Бог
PM ICQ   Вверх
Letov
Дата 26.3.2007, 16:20 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 321
Регистрация: 22.2.2007
Где: Санкт-Петербург

Репутация: нет
Всего: 4
Попробуй сделать условие типа
if iOIPAO = nil then
   begin
   end
   else
      FOleInPlaceActiveObject := iOIPAO;
или
if iOIPAO = nil then
   else
      FOleInPlaceActiveObject := iOIPAO;

Компилятору могут непонравится пробелы между переменными и знаками
iOIPAO=nil


--------------------
Не бывает плохих языков программирования. Бывают плохие программисты...
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: ActiveX/СОМ/CORBA"

Rrader
Girder

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами


  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Delphi
  • Вопросы по SQL и вопросы по базам данных, не связанные с Delphi, задавать здесь

Если Вам помогли, и атмосфера форума Вам понравилась, то заходите к нам чаще! С уважением, Rrader, Girder.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: ActiveX/СОМ/CORBA | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0695 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.