Ich versuche mit Selection.CreateRange an den Namen oder ID eines Ankers zu kommen.
Welchen Tagnamen muss ich für einen Anker angeben?
A haut nicht hin...
Delphi-Quellcode:
procedure TForm1.Button10Click(Sender: TObject);
begin
try
if Webbrowser1.OleObject.Document.Selection.type = 'Control' then
if Webbrowser1.OleObject.Document.Selection.CreateRange.CommonParentElement.tagName ='X' then begin
MessageDlg('Ein Anker',
mtInformation, [mbOk], 0);
exit
end;
except
end;
end;
Grüße
Horst