Bonjour,
Comment remplacer une page par une autre avec BeforeNavigate ?
La methode suivante ne donne pas de résultat.
procedure Tform1.TWBBeforeNavigate2 (Sender: TObject;
const pDisp: IDispatch; var URL, Flags, TargetFrameName, PostData,
Headers: OleVariant; var Cancel: WordBool);
begin
if pos ('comclick', LowerCase (URL)) > 0 then
URL := 'http://www.voila.fr;
end;
Merci de vos réponses et BONNE ANNEE à tous.
Fernando