web-browser c++ builder 6

[nick42]

в Unit.h вставил неправильно; нужно же и параметры перечислить__

void __fastcall make_info(TObject *Sender,LPDISPATCH pDisp, tagVARIANT *URL);

А make_tab() не надо было переименовывать.

[andry-93]

Всё сделал... Спасибо большое... Теперь всё работает)

[andry-93]

Ах да... И ещё... Как скрыть рамку в ProgressBar1? http://www.delphisources.ru/pages/fa...ut_border.html Тут как это сделать на delphi

[nick42]

не понял: какую рамку?

[andry-93]

Сообщение от nick42

не понял: какую рамку?

Когда ставиться прогресбар образуется рамка (задний фон), его нужно убрать, что бы была только полоса загрузки без фона http://www.delphisources.ru/pages/fa...ut_border.htmlЭто пример... Если убрать рамку то прогресбар виден вообще не будет и появляться только сам процесс загрузки будет и только тогда, когда грузиться страница, если она не грузиться то и прогресбар виден не будет

[nick42]

а чего б обычный прогрессбар не применить; его и не видно почти...

[andry-93]

Сообщение от nick42

а чего б обычный прогрессбар не применить; его и не видно почти...

Ну я просто его в комбобокс впихнул... А там фон текст закрывает... Хотя ладно... Я просто его в низ перетащю...

[nick42]

ежели он мешает - просто добавь строчку, делающую его невидимым__

void __fastcall TForm1::CppWebBrowser1ProgressChange(TObject *Sender,
      long Progress, long ProgressMax)
{
ProgressBar1->Max=ProgressMax;
ProgressBar1->Position=Progress;
  ProgressBar1->Visible=Progress;

и на FormResize желательно ему место определять__

void __fastcall TForm1::FormResize(TObject *Sender)
{
     ProgressBar1->Left = StatusBar1->Width-24-ProgressBar1->Width;
}

[andry-93]

Сообщение от nick42

ежели он мешает - просто добавь строчку, делающую его невидимым__

void __fastcall TForm1::CppWebBrowser1ProgressChange(TObject *Sender,
      long Progress, long ProgressMax)
{
ProgressBar1->Max=ProgressMax;
ProgressBar1->Position=Progress;
  ProgressBar1->Visible=Progress;

и на FormResize желательно ему место определять__

void __fastcall TForm1::FormResize(TObject *Sender)
{
     ProgressBar1->Left = StatusBar1->Width-24-ProgressBar1->Width;
}

В моём случае

void __fastcall TForm1::make_prog(TObject *Sender,long Progress, long ProgressMax)
{
ProgressBar1->Max=ProgressMax;
ProgressBar1->Position=Progress;
ProgressBar1->Visible=Progress;
}

и заменить строку в make_tub с прогресбаром на

newbrowser[num]->OnProgressChange = make_prog;

Спасибо теперь я разобрался как это всё делать

[SmoK777]

andry-93, Привет, можешь написать мне в ICQ:4939109 , или Skype: kvot777 ?