Hallo,
wenn Du deine
HTML-Seite z.B. mit einem Dummy-Script "versorgst", kannst Du folgendes machen:
Code:
<
HTML>
<HEAD>
<script language="JavaScript">
function Dummy(text){}
</script>
<TITLE></TITLE>
</HEAD>
<BODY>
[
url="JavaScript
:Dummy('Exit')"]Exit[/
url]
[
url="JavaScript
:Dummy('OK')"]OK[/
url]
</BODY>
</
HTML>
Delphi-Quellcode:
PROCEDURE TfMain.WebBrowserBeforeNavigate2(Sender: TObject;
CONST pDisp: IDispatch;
VAR URL, Flags, TargetFrameName, PostData,
Headers: OleVariant;
VAR Cancel: WordBool);
BEGIN
IF pos('
Exit',
URL) > 0
THEN
showmessage('
Exit')
// Deine Befehle
ELSE IF pos('
OK',
URL) > 0
THEN
showmessage('
OK');
// Deine Befehle
END;