Пишу код

Код

procedure TForm1.Button1Click(Sender: TObject); begin  with WebBrowser1 do  begin    OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';  end; end;

Вроде все правильно, но выходит ошибка Missing operator or semicolon в чем дело???

У меня нормально...
На какой строчке пишет ?

тут with WebBrowser1 do
Добавлено @ 11:07
У меня компонет браузера был сразу на вкладке ИНТЕРНЕТ после установки Дельфи 7, и я его сам в ручную не устанавливал, может в этом дело???

ауууууууу

Цитата(proger @ 15.11.2004, 11:02)

У меня компонет браузера был сразу на вкладке ИНТЕРНЕТ после установки Дельфи 7, и я его сам в ручную не устанавливал, может в этом дело???

У меня тоже он там с самого начала висит, специально не устанавливал...
Да и вряд ли ошибка в этом, т.к. это ошибка компиляции...
Странно это всё...
Быстрее будет, если ты пришлёшь мне исходник...

Это почти весь код:
procedure Tgramm.FormCreate(Sender: TObject);
begin
Image1.Picture.LoadFromFile('bmp/win6.bmp')

with WebBrowser1 do
begin
WebBrowser1.OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';
OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';
OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';
OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';
OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';
OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';
OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF';
end;
end;

И возникают ошибки:
[Предупреждение] grammatica.pas(7): Unit 'OleAuto' is deprecated
[Ошибка] grammatica.pas(81): Missing operator or semicolon
[Фатальная Ошибка] komek.dpr(15): Could not compile used unit 'grammatica.pas'
Если не трудно, опиши каждую из них, спасибо!

Если бы ещё строчки , на которых ошибка вылетает написал...

После Image1.Picture.LoadFromFile('bmp/win6.bmp') надо поставить точку с запятой

Поставил, но теперь на строчке OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';

Цитата(proger @ 16.11.2004, 19:06)

Поставил, но теперь на строчке OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';

Если исправить тот код? который ты привёл (поставить ";"), то никаких ошибок не должно быть...
Видимо, ты еще что-то подправил. Покажи, какой код у тебя теперь.

Это сообщение отредактировал(а) p0s0l - 16.11.2004, 20:14

Возникает ошибка винды, что то сввязанное с памятью по адресу (Read for address 0000000), прога запускается, но эта ошибка вылезает!

Либо WebBrowser не создан...
Но скорее всего, т.к. это происходит в OnCreate, у тебя в WebBrowser не загружена страничка... Нет никакого Document'а еще...
Сделай вначале WebBrowser1.Navigate ( ... ), подожди пока загрузится, потом уже меняй стиль скроллбара...
Хотя это имхо...

Ладно, попробую, но ты не мог бы скинуть пример кода, от начала до конца, как у тебя это работает! Спасибо!

Вот полный код:

Код

unit grammatica; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, ExtCtrls,OleAuto, OleCtrls, SHDocVw, StdCtrls,MSHTML, Buttons,JPEG,  XPMan, ActnMan, ActnColorMaps, OleCtnrs; type  Tgramm = class(TForm)    Image1: TImage;    Image2: TImage;    WebBrowser1: TWebBrowser;    Image3: TImage;    Image4: TImage;    Image5: TImage;    Image6: TImage;    procedure FormCreate(Sender: TObject);    procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image1MouseDown(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure Image1MouseUp(Sender: TObject; Button: TMouseButton;      Shift: TShiftState; X, Y: Integer);    procedure Image2Click(Sender: TObject);    procedure Image2MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure FormShow(Sender: TObject);    procedure Image4Click(Sender: TObject);    procedure Image3MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image4MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image5MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image6MouseMove(Sender: TObject; Shift: TShiftState; X,      Y: Integer);    procedure Image3Click(Sender: TObject);    procedure Image6Click(Sender: TObject);    procedure Image5Click(Sender: TObject);    procedure WebBrowser1DocumentComplete(Sender: TObject;      const pDisp: IDispatch; var URL: OleVariant);  private    { Private declarations }  public    { Public declarations }  end; var  gramm: Tgramm;  x0, y0: integer; // &auml;&euml;&yuml; &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&aring;&iacute;&egrave;&yuml;  move: boolean;  WordApp: Variant; implementation {$R *.dfm} {******************* &Ntilde;&Ograve;&Egrave;&Euml;&Uuml; &Aacute;&ETH;&Agrave;&Oacute;&Ccedil;&Aring;&ETH;&Agrave; **************************************} procedure WB_SetBorderColor(Sender: TObject;BorderColor: String); var  Document : IHTMLDocument2;  Element : IHTMLElement; begin  Document := TWebBrowser(Sender).Document as IHTMLDocument2;  if Assigned(Document) then  begin    Element := Document.Body;    if Element <> nil then    begin      Element.Style.BorderColor := BorderColor;    end;  end; end; {******************* &Ntilde;&Ograve;&Egrave;&Euml;&Uuml; &Aacute;&ETH;&Agrave;&Oacute;&Ccedil;&Aring;&ETH;&Agrave; **************************************} procedure Tgramm.FormCreate(Sender: TObject); begin Image1.Picture.LoadFromFile('bmp/win6.bmp'); // &Igrave;&aring;&iacute;&yuml;&aring;&igrave; &ouml;&acirc;&aring;&ograve; &ntilde;&ecirc;&eth;&icirc;&euml;&euml;&agrave; // with WebBrowser1 do //  begin //OleObject.document.body.Style.scrollbarArrowColor := '#0099FF'; //    OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF'; //    OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF'; //    OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF'; //    OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF'; //    OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF'; //    OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; // end; end; procedure Tgramm.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin Image2.Picture.LoadFromFile('bmp/close_1.bmp'); // &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&aring;&iacute;&egrave;&aring; &ocirc;&icirc;&eth;&igrave;&ucirc;  if move=true then  begin    Gramm.Left:=Gramm.Left+x-x0; // &Egrave;&ccedil;&igrave;&aring;&iacute;&yuml;&aring;&igrave; &iuml;&icirc;&ccedil;&egrave;&ouml;&egrave;&thorn; &euml;&aring;&acirc;&icirc;&atilde;&icirc; &ecirc;&eth;&agrave;&yuml;    Gramm.Top:=Gramm.Top+y-y0; // &Egrave;&ccedil;&igrave;&aring;&iacute;&yuml;&aring;&igrave; &iuml;&icirc;&ccedil;&egrave;&ouml;&egrave;&thorn; &acirc;&aring;&eth;&otilde;&iacute;&aring;&atilde;&icirc; &ecirc;&eth;&agrave;&yuml;  end; // &Acirc;&icirc;&ccedil;&eth;&agrave;&ugrave;&agrave;&aring;&igrave; &igrave;&aring;&iacute;&thorn; if image3.hint<>'1' then begin image3.Picture.LoadFromFile('bmp\button\interface\soderzh1.bmp'); image3.Hint :='1'; end; if image4.hint<>'1' then begin image4.Picture.LoadFromFile('bmp\button\interface\print1.bmp'); image4.Hint :='1'; end; if image5.hint<>'1' then begin image5.Picture.LoadFromFile('bmp\button\interface\printgramm1.bmp'); image5.Hint :='1'; end; if image6.hint<>'1' then begin image6.Picture.LoadFromFile('bmp\button\interface\cansel1.bmp'); image6.Hint :='1'; end; end; procedure Tgramm.Image1MouseDown(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin  if button <> mbLeft then    move:=false //&aring;&ntilde;&euml;&egrave; &iacute;&agrave;&aelig;&agrave;&euml;&egrave; &iacute;&aring; &euml;&aring;&acirc;&icirc;&eacute; &ecirc;&iacute;&icirc;&iuml;&ecirc;&icirc;&eacute;, &ograve;&icirc; &iuml;&aring;&eth;&aring;&igrave;&aring;&ugrave;&agrave;&ograve;&uuml; &iacute;&aring; &aacute;&oacute;&auml;&aring;&igrave;!  else  begin    move:=true;    x0:=x; //&ccedil;&agrave;&iuml;&icirc;&igrave;&egrave;&iacute;&agrave;&aring;&igrave; &iacute;&agrave;&divide;&agrave;&euml;&uuml;&iacute;&ucirc;&aring; &ecirc;&icirc;&icirc;&eth;&auml;&egrave;&iacute;&agrave;&ograve;&ucirc;    y0:=y; //&ccedil;&agrave;&iuml;&icirc;&igrave;&egrave;&iacute;&agrave;&aring;&igrave; &iacute;&agrave;&divide;&agrave;&euml;&uuml;&iacute;&ucirc;&aring; &ecirc;&icirc;&icirc;&eth;&auml;&egrave;&iacute;&agrave;&ograve;&ucirc;  end; end; procedure Tgramm.Image1MouseUp(Sender: TObject; Button: TMouseButton;  Shift: TShiftState; X, Y: Integer); begin move := false; end; procedure Tgramm.Image2Click(Sender: TObject); begin close; end; procedure Tgramm.Image2MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin Image2.Picture.LoadFromFile('bmp/close_2.bmp'); end; procedure Tgramm.FormShow(Sender: TObject); begin Image2.Picture.LoadFromFile('bmp/close_1.bmp'); Webbrowser1.Navigate(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\index.htm'); // &ecirc;&iacute;&icirc;&iuml;&ecirc;&egrave; image3.Picture.LoadFromFile('bmp\button\interface\soderzh1.bmp'); image3.Hint :='1'; image4.Picture.LoadFromFile('bmp\button\interface\print1.bmp'); image4.Hint :='1'; image5.Picture.LoadFromFile('bmp\button\interface\printgramm1.bmp'); image5.Hint :='1'; image6.Picture.LoadFromFile('bmp\button\interface\cansel1.bmp'); image6.Hint :='1'; end; procedure Tgramm.Image4Click(Sender: TObject); var  vaIn, vaOut: OleVariant; begin  WebBrowser1.ControlInterface.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_PROMPTUSER,    vaIn, vaOut); end; procedure Tgramm.Image3MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image3.Hint='1' then  begin  Image3.Picture.LoadFromFile('bmp/button/interface/soderzh2.bmp');  image3.Hint :='2';  end; end; procedure Tgramm.Image4MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image4.Hint='1' then  begin  Image4.Picture.LoadFromFile('bmp/button/interface/print2.bmp');  image4.Hint :='2';  end; end; procedure Tgramm.Image5MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image5.Hint='1' then  begin  Image5.Picture.LoadFromFile('bmp/button/interface/printgramm2.bmp');  image5.Hint :='2';  end; end; procedure Tgramm.Image6MouseMove(Sender: TObject; Shift: TShiftState; X,  Y: Integer); begin if image6.Hint='1' then  begin  Image6.Picture.LoadFromFile('bmp/button/interface/cansel2.bmp');  image6.Hint :='2';  end; end; procedure Tgramm.Image3Click(Sender: TObject); begin if Webbrowser1.LocationName<>'index.htm' then begin  Webbrowser1.Navigate(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\index.htm'); end; end; procedure Tgramm.Image6Click(Sender: TObject); begin close; end; procedure Tgramm.Image5Click(Sender: TObject); begin WordApp := CreateOLEObject('Word.Application'); WordApp.Visible := True; WordApp.Documents.Open(copy(Application.ExeName,1,length(Application.ExeName)-9)+'othercomp\gramm\book.doc'); end; procedure Tgramm.WebBrowser1DocumentComplete(Sender: TObject;  const pDisp: IDispatch; var URL: OleVariant); begin with WebBrowser1 do begin   OleObject.document.body.Style.scrollbarArrowColor := '#0099FF';   OleObject.document.body.Style.scrollbar3DLIGHTCOLOR := '#FFFFFF';   OleObject.document.body.Style.scrollbarDarkShadowColor := '#0099FF';   OleObject.document.body.Style.scrollbarFaceColor := '#99CCFF';   OleObject.document.body.Style.scrollbarHighlightColor := '#0099FF';   OleObject.Document.body.Style.scrollbarShadowColor := '#0099FF';   OleObject.Document.body.Style.scrollbarTrackColor := '#FFFFFF'; end; end; end.

И теперь при запуске вылазиет окно с текстом:
Method 'scrollbarArrowColor' not supported by automation object, а теперь в чем проблема???? Мож в свойствах браузера что-то надо настроить?

ауууууууу