Webbrowser и combobox: сделать чтобы в combobox-е оставалась история посещенных сайтов

[uasya2]

у меня есть Webbrowser и combobox.... как сделать чтобы в combobox-е оставалась история посещенных сайтов, хотя бы временная пока не закрыл свой браузер?????

[asmodey1]

Да очень просто :

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
begin
ComboBox1.Items.Add(WebBrowser1.LocationURL);
end;

Соответственно, "гуляем" по истории:

procedure TForm1.ComboBox1Change(Sender: TObject);
begin
WebBrowser1.Navigate(ComboBox1.Text);
end;

[uasya2]

Спасибо....но в Combobox1 записывается сразу по шесть ссылок...т.е по одному переходу на новую страницу в истории combobox-a сразу шесть ссылок))....но а так работает.....

[asmodey1]

Введите контроль на совпадение очередного УРЛа из WebBrowser1 с уже имеющимися в ComboBox... (function CompareStrings)

[uasya2]

как реализуется данная процедура ?

[asmodey1]

Да хотя бы так :

procedure TForm1.WebBrowser1NavigateComplete2(Sender: TObject;
  const pDisp: IDispatch; var URL: OleVariant);
var i: integer;
     ok: boolean;
begin
ok:=False;
for i:=0 to ComboBox1.Items.Count-1 do
if ComboBox1.Items.Strings[i]=WebBrowser1.LocationURL then
begin
ok:=True;
break;
end;
if not ok then
ComboBox1.Items.Add(WebBrowser1.LocationURL);
end;

[uasya2]

Кульно)) Спасибо за помощь!)