TChromium ChromeTabs не работает
Я хочу сделать вкладки для моего TChromium.
У меня есть это:
Browsers: array[0..1000] of TChromium;
И это процедуры ChromeTabs:
procedure TForm1.ChromeTabsActiveTabChanged(Sender: TObject; ATab: TChromeTab);
var
c:integer;
begin
for c := 0 to ChromeTabs.Tabs.Count do
if browsers[c]NIL then
if c=ChromeTabs.ActiveTabIndex then browsers[c].Visible:=true else browsers[c].visible:=false;
end;
procedure TForm1.ChromeTabsButtonAddClick(Sender: TObject;
var Handled: Boolean);
begin
browsers[ChromeTabs.ActiveTabIndex]:=TChromium.Create(Chromium);
browsers[ChromeTabs.ActiveTabIndex].OnAddressChange:=Chromium.OnAddressChange;
browsers[ChromeTabs.ActiveTabIndex].OnAfterCreated:=Chromium.OnAfterCreated;
browsers[ChromeTabs.ActiveTabIndex].OnBeforeContextMenu:=Chromium.OnBeforeContextMenu;
browsers[ChromeTabs.ActiveTabIndex].OnBeforePopup:=Chromium.OnBeforePopup;
browsers[ChromeTabs.ActiveTabIndex].OnLoadEnd:=Chromium.OnLoadEnd;
browsers[ChromeTabs.ActiveTabIndex].OnLoadError:=Chromium.OnLoadError;
browsers[ChromeTabs.ActiveTabIndex].OnLoadingStateChange:=Chromium.OnLoadingStateChange;
browsers[ChromeTabs.ActiveTabIndex].OnProcessMessageReceived:=Chromium.OnProcessMessageReceived;
browsers[ChromeTabs.ActiveTabIndex].OnStatusMessage:=Chromium.OnStatusMessage;
browsers[ChromeTabs.ActiveTabIndex].DefaultEncoding:=Chromium.DefaultEncoding;
browsers[ChromeTabs.ActiveTabIndex].parent:=Form1;
browsers[ChromeTabs.ActiveTabIndex].Align:=alClient;
browsers[ChromeTabs.ActiveTabIndex].Show;
browsers[ChromeTabs.ActiveTabIndex].Load(Chromium.DefaultUrl);
end;
procedure TForm1.ChromeTabsButtonCloseTabClick(Sender: TObject;
ATab: TChromeTab; var Close: Boolean);
begin
browsers[ATab.Index].Destroy;
Close:=True;
end;
Chromium - мой браузер по умолчанию, я разместил его в моей форме.
Итак, когда яЯ пытаюсь закрыть одну из вкладок, иногда выдает ошибку нарушения доступа.
Когда я'Я пытаюсь загрузить URL-адрес из Adress_Line, он дает Access Violation Error.
Кроме того, когда я открываю 2 или более вкладок, они выглядят плохо, как это -http://s43.radikal.ru/i101/1307/99/650e18d5e190.jpg
Пожалуйста, помогите мне решить все эти проблемы :(
Thanks.