VPF::TWebBrowser - Форум программистов

LordNet

Дата 23.3.2005, 16:47 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Люди помагите, вот код:

Он Выводит ошибку на ID_IE_CONTEXTMENU_ADDFAV.
Что делать?
Может надо чтота в uses добавить?

Код

function GetIEHandle(WebBrowser: TWebbrowser; ClassName: string): HWND; 
var 
  hwndChild, hwndTmp: HWND; 
  oleCtrl: TOleControl; 
  szClass: array [0..255] of char; 
begin 
  oleCtrl :=WebBrowser; 
  hwndTmp := oleCtrl.Handle; 
  while (true) do 
  begin 
    hwndChild := GetWindow(hwndTmp, GW_CHILD); 
    GetClassName(hwndChild, szClass, SizeOf(szClass)); 
    if (string(szClass)=ClassName) then 
    begin 
      Result :=hwndChild; 
      Exit; 
    end; 
    hwndTmp := hwndChild; 
  end; 
  Result := 0; 
end; 

procedure TForm1.ToolButton2Click(Sender: TObject); 
begin 
  //Invoke "Add To Favorite" Dialog 
  SendMessage(GetIEHandle(web, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0); 
end;

Это сообщение отредактировал(а) p0s0l - 28.3.2005, 09:38

Alex

Дата 23.3.2005, 22:21 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

http://vingrad.ru/DELPHI-DLP-002387

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

LordNet

Дата 24.3.2005, 08:25 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

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

Репутация: нет
Всего: нет

Alex Видел я этот сайт.
Можеш мне попорядку все обьяснить я проста новичок.
Я вставляю эту функцию:
function GetIEHandle(WebBrowser: TWebbrowser; ClassName: string): HWND;

И на кнопку OnClick делаю:
SendMessage(GetIEHandle(WebBrowser, 'Internet Explorer_Server'), WM_COMMAND, ID_IE_CONTEXTMENU_ADDFAV, 0);

После у меня высвечиваеться ошибка на ID_IE_CONTEXTMENU_ADDFAV.
Что Мне делать.
Может в uses чтота добавить или ешо чтота?

Alex

Дата 24.3.2005, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Экс. модератор
Сообщений: 4147
Регистрация: 25.3.2002
Где: Москва

Репутация: 1
Всего: 162

LordNet, дал же ссылку smile

Константы кто будет прописывать? Пушкин?

--------------------

Написать можно все - главное четко представлять, что ты хочешь получить в конце.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »