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

ultranano

Дата 2.4.2007, 19:38 (ссылка)

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

Загрузка ...

Новичок

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

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

здравствуйте!

Нужна помощь по компоненту WebBrowser

Мне нужно убрать 3D края, сделать WebBrowser плоским...
Примеры из DRKB и на форуме(все темы просмотрел по краям WB smile

)
у меня не работают...
Может я что-то не так делаю?
Пожалуйста, приведите самый простой пример... smile

P.S. Использую Delphi 2006(v10)

Это сообщение отредактировал(а) ultranano - 2.4.2007, 19:39

Yanis

Дата 2.4.2007, 19:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Ну ты наверное не маленький?! Докажи что у тебя они не работают! Вот у меня код приведённый ниже работает. Готов выложить скрин.

Код

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Doc := IHTMLDocument2(TWebBrowser(ASender).Document);
  if Doc = nil then Exit;
  Element := Doc.body;
  if Element = nil then Exit;
  Element.style.borderStyle := '';
end;

Это сообщение отредактировал(а) Yanis - 2.4.2007, 19:47

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

*щёлк*

ultranano

Дата 2.4.2007, 20:23 (ссылка)

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

Загрузка ...

Новичок

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

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

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

Yanis

Дата 2.4.2007, 20:35 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(ultranano @ 2.4.2007, 21:23

)

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

Давай на ты smile

Ошибка в том, что ты рано остановился перестав листать DRKB.
Ну если это поможет:

Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, OleCtrls, SHDocVw, ActiveX, MSHTML;

type
  TForm1 = class(TForm)
    WebBrowser1: TWebBrowser;
    procedure WebBrowser1DocumentComplete(ASender: TObject;
      const pDisp: IDispatch; var URL: OleVariant);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.ya.ru');
end;

procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Doc := IHTMLDocument2(TWebBrowser(ASender).Document);
  if Doc = nil then Exit;
  Element := Doc.body;
  if Element = nil then Exit;
  Element.style.borderStyle := '';
end;

end.

Это сообщение отредактировал(а) Yanis - 2.4.2007, 20:37

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

*щёлк*

ultranano

Дата 2.4.2007, 20:43 (ссылка)

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

Загрузка ...

Новичок

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

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

Код


procedure TForm1.FormCreate(Sender: TObject);
begin
  WebBrowser1.Navigate('http://www.ya.ru');
end;
procedure TForm1.WebBrowser1DocumentComplete(ASender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var
  Doc : IHTMLDocument2;
  Element : IHTMLElement;
begin
  Doc := IHTMLDocument2(TWebBrowser(ASender).Document);
  if Doc = nil then Exit;
  Element := Doc.body;
  if Element = nil then Exit;
  Element.style.borderStyle := '';
end;
end.

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

Это сообщение отредактировал(а) Alexeis - 2.4.2007, 21:15

Yanis

Дата 2.4.2007, 20:46 (ссылка)

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

Загрузка ...

Эксперт

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

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

Перепиши uses заново. Я пример по новой накидал smile

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

*щёлк*

ultranano

Дата 2.4.2007, 20:47 (ссылка)

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

Загрузка ...

Новичок

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

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

я тоже заметил MSHTML не хватает...)) ActiveX...

Добавлено @ 20:53
он не плоский... бред какойто....

Это сообщение отредактировал(а) ultranano - 2.4.2007, 21:06

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