Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 22.03.2009, 13:23   #11
Kostia
Участник клуба
 
Аватар для Kostia
 
Регистрация: 21.11.2007
Сообщений: 1,692
По умолчанию

Ты изначально усложнил себе задачу! Для чего придумали класс?
Код:
type
  InternetPage = class
public
  URL: string;
  WB: TWebBrowser;
  constructor Create;
  destructor Destroy;
end;
...
Затем каждую новую копию этого объекта заносишь в TList и обращаешься к тому, который тебе нужен.
Kostia вне форума Ответить с цитированием
Старый 22.03.2009, 14:05   #12
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

сначала задается парент, а только потом ресайз

Код:
wb:=TEmbeddedWB.CreateParented(t.Handle);
wb.ParentWindow:=t.Handle;
t.CreateParentedControl(wb.Handle);

wb.align := alclient;
soleil@mmc вне форума Ответить с цитированием
Старый 22.03.2009, 14:06   #13
SibBear
Пользователь
 
Регистрация: 11.05.2008
Сообщений: 62
По умолчанию

Посмотри это, тут проблемы практически решены. По поводу создания вкладок с браузерами и Allign:=alClient там все в порядке.

Кнопка обратно не выдает ошибок если запускать exe. А в delphi выдает ошибку. Сможешь решить свистни, мне тоже это нужно.
http://www.programmersforum.ru/attac...8&d=1237364154
SibBear вне форума Ответить с цитированием
Старый 22.03.2009, 14:48   #14
soleil@mmc
SQL-коддинг
Участник клуба
 
Регистрация: 16.01.2009
Сообщений: 1,192
По умолчанию

я думаю, что основная проблема в том, что там нет кнопки "обратно"
может это и к лучшему: нет кнопки - нет проблем

З.Ы.: рекомендую изучть возможности заложенные в модуле IniFiles ("велосипед" уже успели изобрести до нас)
soleil@mmc вне форума Ответить с цитированием
Старый 22.03.2009, 15:30   #15
SibBear
Пользователь
 
Регистрация: 11.05.2008
Сообщений: 62
По умолчанию

ну да, там ее нет, надо просто ее добавить и поставить выполнение (PageControl1.ActivePage as TWebSheet).FBrowser.GoBack
и все.
Что, совсем уже все готовое надо выкладивать? А где же творческий подход? :-)
SibBear вне форума Ответить с цитированием
Старый 22.03.2009, 23:17   #16
s.Creator
Форумчанин
 
Регистрация: 28.09.2008
Сообщений: 344
По умолчанию

По поводу Browser.GoBack;
можно управлять доступностью кнопки
Код:
procedure TForm1.WebBrowser1CommandStateChange(Sender: TObject; Command: Integer; Enable: WordBool);
begin
  case Command of
    CSC_NAVIGATEBACK: GoBack_Button.Enabled := Enable;
    CSC_NAVIGATEFORWARD: GoForward_Button.Enabled := Enable;
    CSC_UPDATECOMMANDS: Stop_Button.Enabled := (Sender as TWebBrowser).Busy;
  end;
end;
(немного доделал webForm.zip)
s.Creator вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
создание компонента Bayazet Общие вопросы Delphi 4 17.12.2008 16:48
Создание компонента russianstrike Компоненты Delphi 15 01.10.2008 19:22
Создание компонента. Черничный Компоненты Delphi 2 01.06.2008 23:28