L
laohe
Unregistered / Unconfirmed
GUEST, unregistred user!
用以前用VB制作很简单,但用delphi时出错;
请大侠看看下面的代码,让StatusBar1.Panels[0].Text显示网页中的走马灯之类的特效
procedure TFormindex.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
StatusBar1.Panels[0].Text:=string(WebBrowser1.StatusText);
end;
请大侠看看下面的代码,让StatusBar1.Panels[0].Text显示网页中的走马灯之类的特效
procedure TFormindex.WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
begin
StatusBar1.Panels[0].Text:=string(WebBrowser1.StatusText);
end;