Procedure

TfrmOMHTML.btnBackClick

Module

fOMHTML

Last Modified

7/15/2014 3:26:42 PM

Visibility

Public/Published

Owner

TfrmOMHTML

Declaration

procedure btnBackClick(Sender: TObject);


Source

462   procedure TfrmOMHTML.btnBackClick(Sender: TObject);
463   var
464     BackURL: string;
465   begin
466     inherited;
467     if FHistoryStack.Count > 1 then
468     begin
469       FHistoryStack.Delete(Pred(FHistoryStack.Count));
470       BackURL := FHistoryStack[Pred(FHistoryStack.Count)];
471       FHistoryStack.Delete(Pred(FHistoryStack.Count));
472       if FHistoryStack.Count < 2 then btnBack.Enabled := False;
473       try
474       webView.Navigate(BackURL);
475       except
476       end;
477     end;
478   end;