webBrowser 怎么控制让前进,后退像IE浏览器那样自动失效.(100分)

webBrowser 怎么控制让前进,后退像IE浏览器那样自动失效.

很简单:
procedure button1click();
begin
try
webbrowser1.GoForward ;//向前翻的例子，向后翻同理！
except
showmessage('后面没有网页！');
button1.enabled:=false;
end;
end;

呸.这个也算呀,不行,不行...........

if IsWindowVisible(handle) then
begin

case command of

CSC_NavigateBack: Mainfrm.TBBack.Enabled:=Enable;
CSC_NavigateForward: Mainfrm.TBForward.Enabled:=enable;
CSC_UPDATECOMMANDS:
begin
mainfrm.TBForward.Enabled:=Enable;
mainfrm.TBBack.Enabled:=Enable;
end;

end;//case
end;//begin

你把网页的地址记录到StringList中，然后去调用StringList中的网址不就OK了………
执行代码：WEbBrowser1.Navigate(StringList.Strings);