Не обновляются данные в WebBrowser

[Shouldercannon]

Столкнулся с проблемой. По событию OnShow в WebBrowser1 Form5 грузится URL. URL определяется по переменной, которая задаётся в Form1. Вот сама проблема: при последующем показе (после закрытия Form5) Form5 в WebBrowser1 висят старые данные и они не обновятся пока не сделаешь Refresh. Я поставил на событие OnClose

WebBrowser1.Navigate('about:blank')

, чтобы уже наверняка старница по новой грузилась, но увы не помогает.

[bitSoft]

WebBrowser1.Refresh;

[Shouldercannon]

На кнопку это работает, но надо чтобы такое же происходило после открытия формы. Есть идея но может возникнуть ошибка. После открытия формы через 2 секунды делать

WebBrowser1.Refresh;

[Volt]

как вызывается событию OnShow кнопкой? где вызывается webBrowser1.Navigate('') ? вообщем поставьте webBrowser1.Navigate('') перед вызывом события OnShow. и делать рефреш не надо.

[Shouldercannon]

Не помогло.
Так я задаю переменную

CurrentServer

для открытия нужной странички

procedure TForm1.InfoClick(Sender: TObject);
begin
if LVServers.Selected=nil then begin
Exit;
end;

if LVServers.Items[LVServers.ItemIndex].SubItems[1]='77.108.194.247:27018' then begin
CurrentServer:='sc';
Form5.WebBrowser1.Navigate('');
Form5.UpdateInfo; //Показ информации при уже открытой Form5
Form5.Show;
Exit;
end;

if LVServers.Items[LVServers.ItemIndex].SubItems[1]='77.108.196.132:21018' then begin
CurrentServer:='pn';
Form5.WebBrowser1.Navigate('');
Form5.UpdateInfo; //Показ информации при уже открытой Form5
Form5.Show;
Exit;
end;
end;

Так вывожу в Form5

procedure TForm5.FormShow(Sender: TObject);
begin
if Form1.CurrentServer='sc' then begin
WebBrowser1.Navigate('http://games.clanwar.info/sc/sc_full.php');
Exit;
end;

if Form1.CurrentServer='pn' then begin
WebBrowser1.Navigate('http://games.clanwar.info/sc/pn_full.php');
Exit;
end;
end;

Процедура показа информации при открытой Form5

procedure TForm5.UpdateInfo;
begin
if Form1.CurrentServer='sc' then begin
WebBrowser1.Navigate('http://games.clanwar.info/sc/sc_full.php');
Exit;
end;

if Form1.CurrentServer='pn' then begin
WebBrowser1.Navigate('http://games.clanwar.info/sc/pn_full.php');
Exit;
end;
end;

При переключении между серверами в WebBrowser1 висит старая иформация как первого так и второго сервера, чтобы получить новую нужно делать

WebBrowser1.Refresh;

[Volt]

WebBrowser1.Navigate(‘ваша ссылка’,
TargetFrameName, PostData, Headers); где Flags Целое число представляющее из себя битовую маску из следующих флагов:
1 Открыть ресурс в новом окне
2 Не добавлять страницу в историю просмотренных
4 Не загружать страницу из кэша
8 Не сохранять страницу в кэше

TargetFrameName задает имя фрейма; PostData Задает данные для запроса с сервера методом HTTP POST. Если этот параметр пустой – используется метод GET; Headers Задает дополнительные заголовки HTTP

[Volt]

упс Лишние