Creating an RSS Reader - Web Browser Code

(Page 3 of 4 )

Click on the TWebBrowser component, go to the object inspectors event tab, double click on the CommandStateChange event and add the following code:

procedure TForm1.wbCommandStateChange(Sender: TObject; Command:
Integer; Enable: WordBool);
begin

case Command of CSC_UPDATECOMMANDS :
begin
wbRefresh.Enabled := not wb.Busy;
end;

CSC_NAVIGATEFORWARD :
begin
navforward.Enabled := Enable;
end;

CSC_NAVIGATEBACK :
begin
navback.Enabled := Enable;
end;

end;
end;

The code above enables and disables the browser-related buttons depending on what state the browser is in.

In the object inspector, double click on the OnDocumentComplete event and add the following code:

procedure TForm1.wbDocumentComplete(Sender: TObject;
const pDisp: IDispatch; var URL: OleVariant);
begin
wbRefresh.Enabled := true;
end;

This procedure just enables the refresh button once the browser has completed downloading a web page.

Next, double click on the OnNewWindow2 event and add the following code:

procedure TForm1.wbNewWindow2(Sender: TObject; var ppDisp: IDispatch;
var Cancel: WordBool);
var
NewWindow : TForm1;
begin
NewWindow := TForm1.Create(self);
with NewWindow do begin
ppDisp := wb.Application;
show;
end;
end;

This procedure ensures that any link that you click on opens up a web page in the TWebBrowser component, and not in the default browser of the system.

Next, double click on the OnStatusTextChange event and add the following code:

procedure TForm1.wbStatusTextChange(Sender: TObject; const Text: WideString);
begin
StatusBar1.SimpleText := Text;
end;

The code adds browser status text to the Statusbar. For example, if the browser loads a new document, a message stating that action will be displayed in the status bar.

Next: Navigation Code >>
 

More Delphi-Kylix Articles
More By Jacques Noah

Comments On: Creating an RSS Reader

>>> Be the FIRST to comment on this article!