原创:
(1)前进后退按钮的控制
很多人反应用Delphi的WebBrowser控件,前进和后退按钮不好控制,正好用到了它,于是研究了一下,找到了解决办法:
procedure TFmInfo.WBWebSiteCommandStateChange(Sender: TObject;
Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEFORWARD : btnForward.Enabled : = Enable;
CSC_NAVIGATEBACK : btnBack.Enabled : = Enable;
end;
end;
Command: Integer; Enable: WordBool);
begin
case Command of
CSC_NAVIGATEFORWARD : btnForward.Enabled : = Enable;
CSC_NAVIGATEBACK : btnBack.Enabled : = Enable;
end;
end;
就这么简单